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© VIDE© 



TELA DE QUARENTA COLUNAS 



VPEEK E VPOKE 



FORMATO DAS LETRAS 



TABELA DE PADROES 



NOVOS CARACTERES 



MSX difere dos demais micros por 
possuir urn microprocessador e uma 
memorja de dezesseis kbytes dedicados 
s6 ao contmle da tela. Desvende os 
segredos da VRAM e sinta a diferenca! 



Muitos usudrios dos micros MSX en- 
frentam dificuldades em utilizar coman- 
dos como BASE, VPEEK e VPOKE. 

Para melhor aproveitar esses recursos da 
linguagem BASIC, lemos inicialmente 
que entender como e organizada a me- 
moria de video — VRAM — , um item 
desprezado pela masoria dos manuals. 
O MSX possui um cfiip independen- 
le da unidade central de procefisamento 



(CPU) destinado exclusivamente ao con- 
trole da tela. Conhecido como VDP {Vi- 
deo Display Processor), ele gera imagens 
a parlir de dados armazenados nos de- 
zesseis kbytes de uma memoria indepen- 
dente da RAM (memoria de acesso di- 
reto, onde ficam armazenados o progra- 
ma BASIC e as variaveis). Dessa forma, 
a utilizapao de graficos multicoloiidos 
de alta resolu?ao nao compromete a 
quantidade de mem6ria disponivel, co- 
mo acontece com outros micros. 



TELA DE QUARENTA COLUNAS 



Ao Jigarmos um microcomputador 
da linlia MSX, observamos uma tela de 
textos em que cada Itnha acomoda, teo- 



ricamente, quarenta caracteres. Se isso 
nao ocorrer em seu micro, digite o co- 
mando SCREEN 0. 

A tela — quer contenha textos. lista- 
gens de programas ou simbolos grificos 
— e simplesmente uma reprodu?ao da 
parte da VRAM denominada Tabela de 
Nomes (TN). Essa area da memoria de 
video possui 960 bytes de comprimen- 
to, correspondentes aos 960 caracteres 
que podem ser mostrados na tela simui- 
taneamente {sao 24 linhas com quaren- 
ta caracteres cada uma). 

Cada uma dessas posi^'oes pode cen- 
ter um nijmero qualquer entre e 255. 
niimero que 6 interpret ado pelo VDP 
como o codigo ASCII (sigla de Ameri- 
can Standard Code for Information In- 
terchange) de um caractere. 
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VPEEK E VPOKE 



Em quaiquer micro, o comando PO- 
KE do BASIC nos permite armazenar 
urn numero entre e 255 numa posii;ao 
da RAM. Da mesma forma, o conteu- 
do de quaiquer endereco da RAM ou da 
ROM e oblido com o comando PEEK. 

Como a VRAM nao depende da 
RAM, necessitamos de comandos que 
nos possibilitem ler ou escrever bytes di- 
retamente na memdria de video, ou sc- 
ja, VPEEK e VPOKE. Experimente es- 
sa nova forma de escrever na tela: 

10 CLS 

20 UPOKE 117. 77 
30 VPOKE 419.83 
40 yPOKE 421,88 
50 END 

Esse programa coloca diretamente 
nas posi<;6es 417, 419 e 421 os cddigos 
das letras M, S e X. O VDP transforma 
o codigo da Tabela de Nomes no carac- 
tere correspondente, que e imediatamen- 
te reproduzido na tela. 

Para conferir, digite: 

PRINT VPEEK (417) 
PRINT VPEEK (419) 
PRINT VPEEK (421) 

Estes comandos diretos recuperam os 
codigos das letrai M, S e X diretamente 
da Tabela de Nomes. Se voce nao gosta 
muito de codigos, obtenha as letras cor- 
respondentes utilizando: 

PBINT CHRS (VPEEK (417)) 

PRINT CHRS (VPEEK (419)) 
PRINT CHRS (VPEEK (421)1 

Depois de familiarizado com o fun- 
cionamento desses dois comandos, o 
usuario podera ler acesso as quarenta 
colunas da te!a (o que nao e possivel por 
inlermedio do comando PRINT). Mui- 
tos leitores ja devem ter observado que 
o te.xto comefa a ser escrito a partir da 
segunda coluna, reduzindo, portanto, o 
espaifo total em uma coluna. 

Para ilustrar isso, note que 

LOCATE 0,10: PRINT " * " 

imprime urn asterisco na segunda colu- 
na, deixando um espago vazio a esquer- 
da, enquanto os comandos 

LOCATE 38, 10: PRINT "*" 



LOCATE 39,11:PRINT "*" 

imprimem asteriscos na mesma coluna. 
Use o seguinte programa para ocupar 
a primeira coluna da tela; 

10 SCSEEN 0:KEV OFF 



20 FOR 1 = TO 95<? STEP 40 
30 UPOKE BASE (0)+I , 207 
4 NEXT 

A linha 10 seleciona a tela de textos 
e apaga os rotulos das teclas de funijao 
da parte inferior do video. Um lago 
FOR.. NEXT entre as linhas 20 e 40 co- 
loca varias vezes o caractere de codigo 
207 na primeira posigao de cada linha. 
Deve-se ressallar que, apesar de tcrmos 
usado a instruijao BASE(O) na linha 30, 
ela e perfeitamente dispensavel, uma vez 
que seu valor e zero. 



COMO SE DESENHAM fiS LETRAS 



Vimos ate agora que. ao se colocar um 
numero dentro da Tabela de Nomes, o 
VDP imedialamente o interpreta como 
o codigo ASCII de uma letra ou de um 
simbolo. Como o processador sabe o for- 
mato dccada uma das letras do alfabeto? 

O leilor ja devc ter notado que as le- 
tras que aparecem no video da TV sao 
compostas por pequenos pontes. Cada 
caractere tern seu perfil — ou padrao — 
desenhado em um quadrado com oito 
ponios de lado. Este padrao e codifica- 
do em mimeros bindno-s (formados por 
zeros e uns), a fini de que o computa- 
dor possa compreende-lo. Se fizermos 
com que os "uns" correspondam aos 
pontos acesos e os "zeros", aos apaga- 
dos, poderemos codificar todos os per- 
fis. Como um numero binario entre e 
255 tem no maximo oito algarismos, ca- 
da caractere sera rcpresentado atrav^s de 
uma serie de oito numeros bindrios me- 
nores que 255, ou seja, oito bytes. 

Para que o VDP reconheca o formal o 
dos caracteres, uma porgao da VRAM e 
separada para armazenar os 2048 bytes 
necessaries para representar o.s 256 sim- 
bolos exisientes (256*8 = 2048). Esta 
parte da mcmoria de video e chamada 
de Tabela de Padroes e comes;a no en- 
dereco 2048 da VRAM. 



Para que o usuario nao confunda os 
enderegos da RAM e da VRAM, o BA- 
SIC do MSX oferece a instrucao BASE, 
que evita a memori7.atao dos endere^os 
e permite modificar a posigao das tabe- 
las, As-sim, para a tela de textos de qua- 
renta colunas, o endereco inicial da Ta- 
bela de Nomes esta em BASE (0) e o da 
Tabela de Padroes em BASE (2). 
Confira: 

PRINT BASE(O) 



PRIKT BASE (2) 



TABELA DE PADROES 



Visando a uma melhor compreensao 
da Tabela de Padroes, mostraremos um 
pequeno programa que nos facilitara o 
acesso a essa regiao da VRAM. 

Ao ser executado, o programa impri- 
me na tela a porgao da tabela que cor- 
responde a um caractere. Sao impresses 
lambem os enderecos (com conteudos 
em numeros decimal e binario) e o ca- 
ractere com seu codigo. Dessa forma, o 
leitor entendera como os numeros bina- 
ries codificam o formato dos caracteres. 



10 zs="nooooooo- 




20 SCSEEN 0:KEY OFF 




30 J=520 




4 GOStJBlOO 




50 K$=INKEY$:IF K$="" 


THEN SO 


60 IF KS--CHRS(3J) AND 


J<Z040 TH 


EN J=J+8 




70 IF KS = CtIH${30) AND 


J>7 THEN 


J=J-8 






V 






X 



X 



■i^ 



r 



BO GOTO 4 
100 LOCATE 



12.1:PBINT "CARACTER 



110 VPOKE 64, J/8 

120 LOCATE 10, 3 r PRINT "Cfidigo A 

SCII: "iJ/a 

130 LOCATE 1.6:PftTMT "Enderego" 

;TAB(14) ; "Conteiido" ;1AB{27) ; "Co 

nteUdo" 

140 PR INT: PR INT TAB {3) ; "yRAM" ;T 

AB(14) ; 'Decimal" ; TAB (27) r"Binir 

lo" 

150 PRINT 

160 FOR I=J TO J+7 

170 PRINT TAUl?) ;BASE (2)+I;TAB( 

15) ;VPEEK<BASEt2)+I) ;TABC27) ! RI 

GHTS (ZS+BINS CVPEEKCBASE(2)+I) ) , 

a) 

180 NEXT 
190 RETURN 

A linha 10 cria uma variavel auxiliar 
que permite a conversao decimal/bin^- 
rio. A linha 20 seieciona a tela de qua- 
renta colunas e apaga o rodape com as 
teclas de fun^ao. 



A variavel J conlrola a port,ao da 7 a- 
be!a de Padroes mostrada iia tela, dcfi- 
nindo o caractere que lem seu padrao 
exibido. Seu valor inlciai, dcterminado 
na linha 30, faz com que a primeira le- 
tra impressa seja o 'A' — cujo codigo 
e 65 (65*8 = 520). A linha 40 chama a 
sub-rotina que imprimc a pori;ao da ta- 
bela que nos interessa. As Itnhas 50 e 80 
permitem avan^ar on retroceder dcntro 
da Tabela de Padroes usando as teclas 
de controle do cursor. 

A sub-roiina que cuida da impressao 
dos dados na tela vai da linha 100 a 190. 
As linhas 100 e 110 imprimem o carac- 
tere em questao; a linha 120 imprime sieu 
codigo e as linhas 130 a 150encarregam- 
se do cabecaiho. 

O la(;o FOR.. NEXT, da Hnha 160 a 
180, imprime o conteudo dos oito bytes 
que determinam o padrao do caractere 
e seus enderefos na VRAM, 

Depois de uma ligeira exploragao da 
Tabela de Padroes, o leitor notard que 




OS caracteres grat'icos (aqueles que nao 
sao lelras ou sinais dc pontuai^ao) sur- 
gem truncados no video. A razao disso 
c a incapacidadc do MSX de imprimir 
mais que 256 ponio.s horizontals. Essa 
limltafao fica mais evidente quando pre- 
clsamos de uma resoluijao de 320 por- 
tos na horizontal para representar qua- 
renta caracteres, cada um com oito pon- 
tes de largura. Assim, quando estamos 
em SCREEN 0, somente sao mostrados 
OS seis pontes — ou bits — mais a es- 
querda do padrao, suficientes para de- 
finir as letras mas nao os caracteres gra- 
flcos, que muitas vezes utilizam ate oi- 
to pontes. 



UM NOVO CONJUMTO DE CARACTERES 



O formato das letras e definido na 
VRAM, e nada nos impede de modirica- 
lo, ja que dispomos do comando VPOKE 
para executar tal tarefa. Confira: , 

10 FOR 1=65*8 TO 91*8-1 

20 READ A: VPOKE BASE (2) +1, A 

30 NEXT 

40 FOR I=97*e TO 123*6-1 

SO READ A: VPOKE RASE (2) +1. A 

60 NEJtT 

70 FOR 1=48*6 TO 58*8-1 

80 READ A: VPOKE BASE[2)+I,A 

90 NEXT 

100 END 

lODO DATA 120.72,72.200,248,200 

,200,0 

1010 DATA 112. BO. 00. 24B. 200. 200 

,240,0 

1020 DATA 120.72,64.192.192,200 

,248,0 

1030 DATA 112,72.72,200,200.200 

,240, 

1040 DATA 120,64.64.240.192.192 

,248,0 

1050 DATA 120,64,64.240,192.192 

. 192,0 

1060 DATA 120,64,54,216,200.200 

,248.0 

10 70 DATA 72.72,72,248,200.2 00. 

200,0 

1080 DATA 16.16,16,48,48,48,48, 



1090 DATA 46,16.16,24,152,152,1 

20.0 

IJOO DATA 72,72,80,224,208,200, 

200.0 

1110 DATA 64.64,64,192.192.192, 

248.0 

1120 DATA 68,106.84,196.196,196 

,196,0 

1]30 DATA 72,104.104,216,216,21 

6. 200.0 

1140 DATA 120,72.72.200.200.200 

.248,0 

1150 DATA 120,72,7 2,248,192.192 

, J 92,0 

1160 DATA 120,72,72.200.200.216 

.248,4 

1170 DATA 112. 72, 72,248,208,200 pi 



,20 0,0 

lieO DATA 

248.0 

1190 DATA 

,0 

1200 DATA 

248.0 

1210 DATA 

0.32,0 

1220 DATA 

0,40,0 

1230 DATA 

00,0 

1240 DATA 

48.0 

1250 DATA 

,248,0 

1260 DATA 

8,0 

1270 DATA 

00,248,0 

1230 DATA 

9.0 

1290 DATA 

248,0 

1300 DATA 

8 

1310 DATA 

92,0 

1320 DATA 

200.248 

13 30 DATA 

200,0 

1340 DATA 

13 50 DATA 

,120 

1360 DATA 

0,0 

13 70 DATA 
.0 

1380 DATA 

68,0 

1390 DATA 

0.0 

1400 DATA 

12,0 

1410 DATA 

2,192 

14 20 DATA 
4,24 

1430 DATA 
2,0 

1440 DATA 

.0 

1450 DATA 

2,0 

1460 DATA 

.0 

14 70 DATA 

.0 

1460 DATA 

0,0 

1490 DATA 



150 DATA 

1510 DATA 



1520 DATA 

. 248 . 

1530 DATA 



1540 DATA 

248,0 



112,80,64,120.24,152. 

248.32,32,32,96,96.96 

72.72,72,200,200,200. 

200,200.200,200,200,8 

196,196,212,212,212,4 

80,80.80,32,208,200,2 

136,136,136,80,48,48, 

120,72.16,224,192.200 

0,0,112,16,240,208,24 

128,128,128,240.200,2 

0,0,112,64,192,192.24 

16,16,112,80.208,208, 

0,0.112.80,240.192.24 

48,80,64,64,240,192,1 

0,240,144,224,64.248, 

64,64 ,64,248,200, 200, 

16,0.16,16.48,48.48,0 
16,0,16,16.24,152,152 

0.64. 72,60.224 ,208, 20 

32,32,32.96,96.96,112 

,0,128, 208, 168.168,1 

0,0,64,1]2.200.200,20 

0,0,112,200,200.200,1 

0,0.120.72,200,248,19 

0,0,240.144,144,248.2 

0,0,80.104,192.192,19 

0,0,112,64,56,136,248 

32.32,112,32,32,96,11 

0.0,72,72.,200,200,248 

0,0 ,200. 200,200,80, 32 

0,0,136.168,168,168,8 

0,0,80.80.32,208.200. 

0,0,72.72,48,48,49,0 
0,0,120.8,112,96.120, 

120,72,72,216,232,200 

32,96,32,48,48,48,48, 

120,72,8,248,192,200. 



1550 DATA 112,16,16.120,24,152, 

248,0 

1560 DATA 144,144.144,248.24,24 

,24,0 

1570 DATA 240,128,128,248.24,24 

.248,0 

1580 DATA 112,64,64,248.200.200 

,248,0 

1590 DATA 224,32,32,48,48,46,48 

,0 

1600 DATA 112,80,80.248.152.152 

,248,0 

1610 DATA 240,144.144,248,24,24 

,248,0 

O conjunto de letras futuristas per- 
manece k disposi^ao do usuario ate que 
o micro seja desligado ou receba um co- 
mando SCREEN. 

O programa e composto de trcs lagos 
FOR.. .NEXT e um grande numero de 
linhas DATA, cada uma com oito bytes 
que definem o padrao dos simbolos. 

O primeiro la(;o — que vai da linha 
10 a 30 — modifica os padroes das le- 
tras maiiisculas {c<3digos ASCII de 65 a 
90). O segundo la^o — linhas 40 a 60 
— cuida das rainiisculas (codigos 97 a 
122) e terceiro — linhas 70 a 90 — dos 
niimeros (48 a 57), Nao incluimos carac- 
teres acentuados para nao estender Tnui- 
to as linhas DATA. Entretanto, se o lei- 
tor compreender bem o funcionamento 
do programa, nao tera dificuldade em 
crid-los, completando assim o conjunto. 

O programa que explora a Tabela de 
Padroes podera ser aplicado para que se 
conheca mais detalhadamente os carac- 
teres recem-criados, 

Em contraste com o trago de van- 
guarda desses simbolos artificiais, cria- 
mos um segundo conjunto, dessa vez em 
letras de forraa. As proximas linhas de- 
verao ser acresceniadas ao programa an- 
terior, formando um maior, que sera 
completado no final do artigo. 

5 BESTOBE 3 620 

1620 DATA 16.40,72,72,120,72.13 

2,0 

1630 DATA 120,36,36,56,36,68.24 

B,0 

1640 DATA 24,36,64,64,64,68,56. 



1650 DATA 12 0,36.36,36,36,68,24 

8,0 

1660 DATA 24,36,32,56,64,68,56. 



1670 DATA 60,72,16,16,60,144,96 

.0 

1680 DATA 24.36,64,68,66,60,136 

,112 

1690 DATA 68,72,72.72,120.72,13 

2,0 

1700 DATA 8,24,40,8,8,16,224,0 

1710 DATA 60,72.8,8,8,136,144.9 

5 

1720 DATA 68.72,80,96,80,72,132 

.0 

17 30 DATA 32,64,64,64,64,68,248 



,0 




1740 


DATA 


.0 




1750 


DATA 


"2,0 




1760 


DATA 







1770 


DATA 


92,0 




17R0 


DATA 


,0 




1790 


DATA 


96,0 




18O0 


DATA 


,0 




1810 


DATA 


2,0 




1820 


DATA 







1838 


DATA 







1840 


DATA 







1850 


DATA 


.0 




1860 


DATA 


.0 




1870 


DATA 


,0 




1880 


DATA 


.0 




1890 


DATA 


8.0 




1900 


DATA 


1910 


DATA 


1920 


DATA 


1930 


DATA 


32 




1940 


DATA 


2 




1950 


DATA 


4,0 




1960 


DATA 







19 70 


DATA 


2 




1980 


DATA 


,0 




1990 


DATA 


,0 




2000 


DATA 


2010 


DATA 







2020 


DATA 


2030 


DATA 


2 




2040 


DATA 


20 50 


DATA 


2060 


DATA 







2070 


DATA 


4,0 




2080 


DATA 


2090 


DATA 


2100 


DATA 


2110 


DATA 


2120 


DATA 


2 




2130 


DATA 


2140 


DATA 


.0 




2150 


DATA 


2160 


DATA 



40,84.84,84,84,84,132 

68,68,100,84,76.68,13 

24,36,68,68,68,72,48. 

120,36,36.36,120,32,1 

24,36,68,68,116,72,52 

120,36.36.36,120,40,1 

24.36,64,56,4 , 136,1] 2 

124.16,16,16.16,32,19 

72,72,72,72,72,72,52, 

76,72,72,72,72.80,32, 

68,84.84,84,84,84,40, 

68,36,40,16,40.72,132 

68, 36,36,36,24,16,224 

60,68,8, 124, 32,68, 248 

0,0,56,72,136,136,116 

32,64,64.120.68,68,24 

0,0,24,36,64.64,188,0 
4.4,28,36,68,68, 188,0 
0,0,66,68,72,48,220,0 
8.20,32,32,32,252,32, 

0,0,60,68,68.184,8,11 

32,32,40.52.36.100,16 

16,0,16,16.16,48,204, 

8,0.24,40,72,140,8,11 

16,32,36,40,48,40,196 

16.40,4 0,40,40, 16,2 36 

0,0,40,84,84 ,84. 132,0 
0,0,88, 100 ,68,68,132. 

0,0,28,36,92.68,184.0 
0,0,56, 36. 36,252, 32, 3 

0.0,56,68,68, 188,4.4 

0.0,32,60,36,68,132,0 

0,32,48,40.36,68,152, 

36.16.124,16,16,48.20 

0,0 ,68,68,68,68,188,0 
0,0,76, 72,72,80,160,0 
0,0.196,84,84,84.40,0 
0,0.68,40,16,40,196,0 
0,0,36, 36, 36, 252,8, 11 

0,0, 124,4 ,56,64. 2 52,0 
24.36,76,84.100, 72,48 

8,24,8,16,16,32,112,0 
56,68, 36,8.48,100 ,88, 



^ftOORAMACAO BASIC W 




2170 DATA 24,36.4,24,68.68.56,0 

2138 DATA 4.12.24.40.72,124,16, 



2190 DATA 60,32.64.120,4,4,120. 



2200 DATA 12,16,32.120,68,68,56 

,0 

2210 DATA 60,4.8.16,32,64,64,0 

2220 DATA 56,68,68,56,68,68,56, 



2230 DATA 24,36,68.68,56,8,112, 



O programa utilizado e o me.smo. 
com alterafoes apenas nas linhas DA- 
TA. O comando RESTORE 1620 faz 
com que o comando READ inicie a lei- 
tura a partir da linha DATA 1620. 



MODIFICANDO VALOR-BASE 



A VRAM tern 16384 bytes de com- 
primento. dos quais utilizamos apenas 
3008 quando estamos no modo 
SCREEN (2048 para a Tabela de Pa- 
droes e 960 para a de nomes). Esse es- 
pago ocioso pode ser aproveitado para 
armazenar conjuntos de caracteres e c6- 
pias da tela. O segredo do processo con- 



siste na atribiiigao de novos valores pa- 
ra as instrufoes BASE(O) e BASE(2), 
As linhas seguintes devem ser adicio- 
nadas aos dois programas anteriores, 
formando, assim. um terceiro. E neces- 
sdrio apagar as linhas 5 a iOO com DE- 
LETE 5-100. Alem disso, o programa 
precisa ser gravado antes de ser testado, 
a fim de permitir corre^oes posteriores, 
no caso de ter ocorrido quaiquer erro de 
digit a?ao. 

10 SCREEN 3: SCREEN 0:KEV OFF 

20 FOR 1=0 TO 2 04 7 

30 A»UPEEKCBASE(2)+I) 

40 VPOKE 4096+1, A 

50 VPOKE 6144+1, A 

60 NEXT 

100 FOR 1=65*8 TO 91*8-1 

110 HEAD A;UPOKE 4096+1, A 

12 NEXT 

130 FOR 1=97*8 TO 123*8-1 

140 READ A; VPOKE 4096+1, A 

15 NEXT 

160 FOB 1=48*8 TO 58*8-1 

170 READ A: VPOKE 4096+1, A 

180 NEXT 

200 FOR 1=65*8 TO 91*8-1 

210 HEAD A: VPOKE 6144+1, A 

220 NEXT 

230 FOB 1=97*8 TO 123*8-1 



240 


READ ArVPOKE 6144+1 


.A 


250 


NEXT 




260 


FOR 1=48*8 TO 57*8- 


1 


270 


READ A: VPOKE 6144+1 


.A 


2 80 


NEXT 




300 


J = 0:GOSIJB 360 




310 


FOR J=B192 TO 16300 


STEP 


24 






320 


BASE(0)=J 




330 


GOSIJB 360 




340 


NEXT J 




350 


GOTO 4 20 




360 


FOR 1=0 TO 959 




365 


IF I>439 AND K560 THEN ' 


KE BASE <0 ) +1,32: NEXT 





10 



UPO 



370 VPOKE BASE(0)+I,194+J/1024 

380 NEXT: AS="Esta Tela Se Inic 

ia Eni'' + STRS(J) 

390 FOR I-l TO LEN{A$) 

400 VPOKE BASE (0} +486+1, ASCtKlD 

3(AS,I,1) J 

410 NEXT: RETURN 

420 BABE(05=0:BASEC2)=204B 

430 KS=INKEY3:IF KS="'' THEN 430 

440 IF KS=CHR5(3]) AND BASE(0)> 

8192 THEN BASE (0) =BASE (0) -1024 : 

GOTO 430 

450 IF KS=CHR${31} AND BASE(0)= 

8192 THEN BASE CO) -0 :GOT0 430 

460 IF K$-CHH5(30) AND BASE{D)> 

AND BASE (0X15000 THEN BASE(0 

) -BASE CO) +1024 :GOTO 430 



470 IF K$-CHR3(30) AND BASE[0)- 

THEN BASE (0) -8192 ;GOTO 430 

480 IF K$=CHRS(29] AND BASEt2)> 

2043 THEN BASt (2) =BASE (2> -2048 : 

GOTO 43C 

49U IF KS=CHHS(28) AND BASE(2)< 

6144 THEN BASE ( 2 ) -BASE (2) +204B : 

GOTO 430 

500 IF KS = CHE1S(27J THEN BAKE (0) 

'0:BASE(2)=2048:END 

510 GOTO 430 

O objetivo desse programa 6 mostrar 
como usar toda a area da VRAM raes- 
mo em SCREEN 0. Ao ser executado, 
o programa gasta um longo periodo len- 
do as linhas DATA do final da listagem. 
A seguir observamos que o video e 
preenchido sucessivas vezes com carac- 
teres diversos. Uma mensagem aparece 
no centro de cada tela, mas e apagada 
antes que possa ser Itda. Isso acontece 
porque o programa esia criando, na par- 
te ociosa da VRAM, "telas secundd- 
rias" que, de certa forma, coexistem 
com as demais telas. Elas podem ser re- 
cuperadas logo apos a parada do pro- 
grama at raves das teclas do cursor. 

O programa tamb6m ja tern prontas 
tres copias da Tabela de Padroes, cada 
qual com um tipo de caractere, o que 
nos permite mudar o aspecto das letras 
recorrendo as tectas do cursor. 

Para interromper o programa, use a 
tecla < ESC > . Se o programa for inter- 
rompido dessa maneira, ou porque 
ocorreu alguma mensagem de erro, e ele 
estiver em uma tela diferente da origi- 
nal, cursor de texto nao retornard a 
tela e o programa pareceri estar bio- 
queado. Para fazer o micro vokar ao 
normal, digite is cegas (nada aparecera 
no video) o comando abaixo: SCREEN 

SCREEN D 

e pressione a tecla < ENTER >. 



COMO FUNCIONA 



Na liiiha 10, selectonamos o modo de 
textos e apagamos o rodape da tela. O 
ta?o FOR... NEXT entre as linhas 20 e 
60 cria duas c6pias da Tabela de Pa- 
droes, que comega normalmente em 
2048. As outras duas copias lerao ende- 
regos iniciais 4096 e 6144, respectiva- 
mente. Os lagos seguintes obtem nas li- 
nhas DATA OS padroes que serao mo- 
dificados. As copias da tabela original 
sao necess^rias, porque apenas as letras 
e OS niimeros sao redefinidos, excluindo- 
se, portanto, os demais simbolos. 

As linhas 100 a 180 criam as letras fu- 
turistas na tabela que comega em 4096, 
enquanto as linhas 200 a 280 produzem 
as letras de forma, utilizando a tabela 



iniciada em 6144. Essas linhas se pare- 
cem muito com as primeiras do progra- 
ma responsavel pela mudanga do con- 
junto de caracteres. 

As telas secundarias sao obtidas pe- 
las linhas 300 a 420. A variavcl J deter- 
mina o enderego inicial da tela produzi- 
da peia sub-rotina da linha 360. Assim, 
a primeira tela comegando em e cria- 
da pela linha 300. 

A sub-rotina iniciada a partir da li- 
nha 360 preenche as diferentes telas com 
varies caracteres graficos usando o co- 
mando VPOKE na linha 370. Como o 
cddigo do caractere depende da varia- 
vel J, ele resultara diferente a cada no- 
va tela. Alem disso, na linha 380 surge 
uraa mensagem que identifica a tela 
atravSs de seu enderego inicial, O lago 
das linhas 390 a 410, usando o coman- 
do VPOKE, imprime a mensagem. Es- 
ta se destaca por meio de um espago cla- 
ro criado pela linha 365. 

A sub-rotina da linha 360 e chama- 
da pela primeira vez na linha 300, para 
criar a tela original. A posigao da tela 
pode ser mudada atraves da repetigao da 
linha 320 para diferentes vaiores da va- 
riivet J. Nessa linha, a variavcl BASE(O) 
e, portanto, o enderego inicial da Tabe- 
la de Nomes, assume o valor J. Para ca- 
da nova tela, a $ub-rotina 360 e chama- 
da outra vez pela linha 330. Depois de 
produzidas todas as telas secundarias, o 
programa prossegue na linha 420, onde 
OS valores de BASE(O) e de BASE(2) sao 
restitui'dos ao normal, 

A porgao do programa que abrange 
as linhas 430 a 5 10 torna possivel a exi- 
bigao instantanea de cada uma das te- 
las criadas, escritas com qualquer dos 
ties conjuntos de caracteres. Esta mu- 
danga e obtida peia atribuigao de um no- 
vo valor a uma variavel BASE. As linhas 
440 e 450 permitem "avangar" dentro 
da VRAM atraves da tecla "seta para 
baixo". Novas telas vao sendo mostra- 
das insiantaneamente, a medida que se 
altera o valor de BASE(O), Por ouiro la- 
do, as linhas 460 e 470 possibilitam "re- 
troceder" dentro da VRAM. Sao neces- 
sdrias duas linhas para cada movimen- 
to, devido ao grande intervalo entre a 
tela original (enderego inicial 0) e as se- 
cundarias. Este espago e ocupado pelas 
Tabelas de Padroes. 

Cora as linhas 480 e 490 podemos 
mudar instantaneamente o conjunto de 
caracteres, alterando o valor de BA- 
SE(2), enderego inicial da Tabela de Pa- 
droes. Para isso, o programa detecta as 
teclas "seta para a direita" e "seta pa- 
ra a esquerda". 

A linha 500 possibilita terminar o 
programa sem maiores problemas atra- 
ves da tecla < ESC > . Essa linha resti- 



tui BASE(O) c BASE(2) aos scus valo- 
res iniciais antes de enccrrar. 

Este programa poderia ser mais ilus- 
trativo .se preenchessemos cada Ida se- 
cundaria com um icxto, de modo que 
parecessem paginas de um livro, Traia- 
se, entretanto, de uma tarefa dificil cm 
razao da cnurme quantidadc de linhas 
necesb^rias. 



ALGUNIAS LIMITACOES 



Jnterrompido o programa, ainda c 
possivel obter uma mudanga automati- 
ca do conjunto de caracteres digitando: 

BASE (2) =4096 

OU 

BASE t2) -6144 

Para recuperar o conjunto original. 

digite o seguinte; 

BASE C2) -2048 

ou 

SCtlEEN 

Ao fazer isto, usuario notara atgo 
estranho no cursor: normalmente quan- 
do o sobrepomos a um caractere na te- 
la, esse caractere se inverte. Por exem- 
plo: se era claro sobre fundo escuro. lor- 
na-se escuro, sobre fundo claro. Quan- 
do mudamos a posigao da Tabela dc Pa- 
droes, entretanto, o cursor pcrmanece 
como um espago em branco, que apaga 
o caractere subjacente e desaparece na 
porgao vazia da tela. 

A invcrsao do caractere sob o cursor 
e realizada na Tabela de Padroes, pelo 
sistema operacional do MSX. Isto se da 
atraves das posigoes 2040 a 2047 da 
VRAM. Quando mudamos a BASE(2>, 
o processo nao e mais visivel. 

Comandos como PRINT, TAB e 
LOCATE so funcionam quando a BA- 
SE(0) tern valor 0, ou seja, so imprimem 
na Tabela de Nomes em sua posigao ori- 
ginal. Portanto, apcna.s por intermedio 
de VPOKE e possivel imprimir nas te- 
las secundiirias; todas as mensagens de 
erro sao impressas na Tabela dc Nomes 
original, mesmo que uma tela secunda- 
ria esteja sendo mostrada no video. 

Alem de tudo isso, existem algumas 
limitagoes nos valores da instrugao BA- 
SE. O enderego inicial de uma tabela de 
nomes — BASE(O) no caso de SCREEN 
— devera ser mtiltiplo de 1024. Da 
mesma forma, o enderego inicial de uma 
tabela de padroes — BASE<2) cm 
SCREEN — tera que ser multiplo de 
2048. Voltaremos a este assunto opor- 
tunamente, quando explicarmos os re- 
gistros do chip de video-VDP. 
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Conseguir uma melhor disposifao 
dos moveis num ambiente nem sempre 
€ algo facil, e certamente e uma tarefa 



COO) 



METODO TRADICIONAL 

COMO USAR PAPEL E CANETA 

TIRE AS MEDIDAS 

DESENHOS E ESCALA 

GIRO DAS PECAS 



Deixe para o micro o trabalho "pesado"' 
do planejamento de urn ambiente. 
Com este projeto computadorizado, 
voce pode distribuir seus moveis com 

simptes toque de algumas teclas, 



cansativa. Normalmente, optamos por 
arrastar a mobilia de um lado para ou- 
tro, ate encontrarmos a melhor positao 
para as diferentes peijas. O desanimo 
aparece quando eonstatamos que nem 
tudo se encaixa nos espacos disponiveis. 
Um metodo mais simples consiste em 
fazer um planejamento previo, dese- 
nhando cada m6vel. com precisao, pa- 
ra em seguida adequa-los ao ambiente 
(obviamente e mais simples movimentar 
um retangulo que arrasiar um sofd). 



/> 



/ 



ffftm 



HL 



Apresentamos aquj, entretanto, uma 
terceira allcrnativa ainda mais facil e 
moderna, uiilizando seu microcomputa- 
dor pessoal. O video grafjco pode subs- 
tiluir o traballio do papel c da caneta, 
com a grande vantagem de permiiir fa- 
ceis correv'oes. Alem disso. os detalhes 
da mobilia podem ser armazenados na 
memoria do compuiador, eliminando a 
necessidade de redesenhar uma pefa ca- 
da vez que quisermos move-la. 

O projeto computadorizado e seme- 
IJiante ao projeto feito em papel. A pri- 
meira etapa consiste em se medir, de for- 
ma precisa, o local onde a mobilia sera 
coiocada, ja que em aiguns ambientcs 
poucos centimetros representam uma di- 
fercn^a significativa. 

De posse de todos os dados, incluin- 
do posifoes de ponas e janelas, deve-se 
desenhar o ambiente (evideniemente em 
escala reduzida). O proximo passo e me- 
dir OS moveis envolvidos no projeto e re- 
produzi-los na mesma escala usada pa- 
ra desenho anterior. Dessa forma, se- 
r^ facil manipular as pegas e saber com 










PP 



<r- 




,^^. 
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exatidao, por exemplo, qua! a melhor 
posigao para o piano na saia ou se a ge- 
[adeira cabera em urn determinado can- 
to da cozinha. 

Apresentamos aqui aperas metade 
do programa, que e composto de scte 
op<;6es. O restante vir^ no proximo 
artigo. 

As sete op^oes oferecidas no menu 
principal sac as seguintes: 

Op^ao 1 - Reproduz o ambiente: to- 
mando por base sua maior medida, de- 
senha-o em escala que caiba na tela do 
micro. As dimensoes devem ser iiidica- 
das em metros. junto com suas respec- 
tivas posigoes (Cima, Baixo, Esquerda, 
Direita). Na represemagao das parcdcs, 
consideraremos duas distSncias c duas 
direijoes, permitindo, assim, o desenho 
na diagonal. Na opgao 1, especifica- 
mos tambem a posigao das portas e 
janeias. 

Op^ao 2 - Possibilita a movimenta<;ao 
das pei;as da mobilia ja definidas no 
programa. Sao moveis de cozinha — lal- 
vez o ambietite mais dificil de ser pla- 
nejado — e inclucm armario, fogao, 
maquina de lavar lou(;a, pia e gcladei- 
ra, todo.s com mcdidas padronizadas. 
Qualquer akeragao desejada devera ser 
feita atraves da op^ao 3. O mesmo de- 
senho de uma petja podera ser colocado 
em diferentes lugares. Dessa forma, e 
possivel, por exemplo, dispor quatro ca- 
deiras iguais ao redor de uma mesa, po- 
sicionando a mesma definii;ao da pega 
nos lugares escolhidos, Tudo que temos 
a fazer e selecionar o movel acionando 
algumas teclas. 

Op^ao 3 - Permite redefinir as pe^a-s ja 
contidas no programa e incluir, no md- 
ximo, outras cinco, desde que nao te- 
nham mais que dez lados — que e su- 
ficicnte para desenhar qualquer movel. 
As novas pe*;as serao desenhadas aulo- 
maticamente, tomando como base a es- 
cala da reprodupao do ambiente. 
Op?ao 4 - Permite salvar nosso projeto 
(opvao um) e seu conteudo (opgoes 2 e 
3) em disco ou fita. 
Op^ao 5 - Carrega um projeto e seu 
conteudo de uma fita ou disco. 
Op^ao 6 - Cuida da impressao. Como 
apenas o Spectrum e capaz de imprimir 
a copia do projeto diretamcntc, esia op- 
cao ficara tncompleta para os demais 
micros. Ela pode ser usada para chamar 
uma rotina que despeje o contetjdo da 
tela na impressora ou um outro progra- 
ma em BASIC que fa«;a a mesma tare- 
fa. Em um proximo artijgo, aprendere- 
mos como criar essa rotina e obter cd- 
pias impressas de nossos projetos. 
Op^'ao 7 - E incumbida de tcrminar e 
sair do programa. 



A segunda parte desie programa tra- 
ra uma explica<;ao mais detalhada de ca- 
da opgao, alem de conter a outra meta- 
de da listagem do programa. Mas aien- 
gao: e neccssario digitar as duas partes 
para que o programa rode com seguran- 
ga; portanto, grave a primeira antes de 
digitar a segunda. 



Q 



10 PCLEAE 8: CLEAR 2000 

20 DEF FNA(XM) -1,9*SC*XM 

30 DIM 0S{9) .S(10) 

40 OS(0)-"DD100;DC50 ;DE100;DB50 

; BD8 ; BC4 ; DD40 ; DC34 ; DE4t> ;DB34 ; " 

50 OS(1)="DD50;DC60;DE50;DB60;B 

DIO ;BC10;DD10;DC10;DE10iDB10;BD 

20;DD10 ;DC10;DE10 ;DB10 iBC20;DCl 

0;DD10;DB10;DE10;BE10;DE10;DC10 

; DDIO ; DBl ; BE20 ; BCl 5 ; DD5 ; " 

60 OS(2)="DD100;DC60 iDE100:DB60 

. " 

70 O$(3)="DD30;DC30;DE30iDB30;D 

C20;DD30; " 

80 03 (4) -"DDeOsDCSOsDEfiOjDBdtJ;" 

90 CLS 

100 PRINT e96.TAB(6)"l: PLANEJA 

n AMBIENTE" 

110 PRINT TAB{6)"2: DESENHAR LA 

YOUT" 

120 PRINT TAB (6) "3; DESENHAR MO 

BILIA" 

130 PRINT TAB (6) "4: GRAVAR PROJ 

ETO" 

140 PRINT TAB (6) "5: CAHREGAR PR 

OJETO" 

150 PRINT TAB (65 "6: IMPRIMIR PR 

OJETO" 

160 PRINT TAB (6)" 7; SAIDA" 

170 PRINT e422,"FACA A OPCAO" ; : 

INPUT N 

180 IF N<1 OH N>7 THEN 90 

190 IF N=2 AND FJ. = THEN CLS : PR 

INT"VOCE DEVE PBIMEIRO SELECION 

AH OPCAO 1"; SOUND 1,20: GOTO 9 



200 IF N=l THEN Fl-1 

210 ON N GOTO 360,1120,830,1700 

, 1750. 1790,230 

220 GOTO 90 

230 CLS:PCLS:END 

240 RF-0:COL0R 

250 LINEC200,0) - tZ55,191) ,PSET, 

B 

260 DaAW"BM206,10;S4;A0;NR4D6R4 

BR2U6D3R403U6BR2D6a4tJ6NL4BR2D6H 

4U6NL4BR2NH4D3R4D3NL4BH2NR4U3NR 

2U3R4BR4BD2DBD2D" 

270 IF RF'l THEN RETURN 

280 DRAW"BM203, 30 ; D6R2NU3R2tJ6BH 

6H4D6L4U6BR10D6a4U3L4R3U3L3BR10 

NR4D3R4D3NL4Ba2U6R4D3L4BR6U3NR4 

D6R4" 

290 DRAW"BM2ie,43;D6U3NR2U3R4Br 

6NR4D6H4" 

3 0O RETURN 

310 RF-1:C0L0R . 1 : LINE ( 201 , 1) - 

(254,190} .PRESET, BF:GOSUB 250 

320 DRAW'BM208,30;ND6B4D3L4BB10 

BU3D6R3EHJ4H1L3BR10 ;ND6R4D3L4R1 

F3BR6U6R4L4D3R2" 



330 RETURN 

340 DRAW"BM213,70iD4FlH2ElU4HlL 

2alBUlBR6BD3R3BR5U3R4D3NL4D3BSS 

UBU2U2H2U2L4D2" : RETURN 

350 CLS 

360 PRINT"COMPRIMENTO MAXIMO DO 

COMO DO (M) " 
370 INPUT LE 

380 IF LE>100 OR LE<3 THEN 350 
390 SC=100/LE 

400 PMODE 4, I: COLOR , 1 : PCLS : SC 
REEN 1,0 
410 XM-0:YM-LE 
420 GOSUB 240 

430 XX-FNA(XM) :YY-FNA(YM) :IF PP 
OINTCXX. YY)-1 THEN PSET <XX , 5f Y , 
) ELSE PSET{XX,YY,1) 
440 I$-INKEiS:IF IS-"" THEN 430 
450 0X-Xt1:0y-YM 
460 IF IS-" " THEN COLOR : GOTO 

530 
470 IF I$-"B" THEN COLOR 1:G0T0 

530 
480 IF IS-"C" THEN 400 
490 IF IS-'F" THEN FOR K-1 TO 4 
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" C/B/E/D 

iAj ; INPUT 
.DSfA))-0 



:PC0P5( K TO K+4 ; NEXT: GOTO 90 

500 IF IS-"W" THEN 710 

510 IF I$--0" THEN 800 

S20 GOTO 430 

530 CLS 

540 FOa- A=l TO 2 

550 PRINT'DIRECAO" jA; 

": : INPUT DS(A) 

RfiD IK no [A) -"" TIII'.M: 

570 rniNT "DISTANCIA" 

D(A) 

580 IF INSTR(1,"CBED" 

THEN 550 

590 NEXT 

600 SCREEN 1 , : FOR A-1 TO 2 

610 IF DS!A)="" THEN 670 

620 IF DS(A)-"E" THEN XM-XM-D(A 

) 

630 IF D3(A)-"D" 

) 

640 IF DSfA)= 

) 

650 IF DS{A)' 

) 

660 NEXT A 



THEN XM-XM+D(A 



•C" THEN YM=YM-D(A 
•B" THEN YM-YM+D{A 



670 IF XM<0 OR XM>LE OP XM<0 OR 
y>LE THEN SOUND 1 , 2 : XM-OX: YM=0 
y:GOTO 430 

680 Xl-FNA(OX) :V1-FNA(0Y) :X2-FN 
AtXM) :Y2-FNA{YM) 
690 LINE(Xl.Yl)-(X2.y2) ,PSET 
700 GOTO 430 

710 CLS:INPUT"DIRECAO C/B/E/D"; 
DS 

720 INPUT "DISTANCIA" ;D 
730 Xl-FNA(OX) :Yl-FNA{Oy) 
740 POKE 178,2 

IF D$-"E" THEN XM-XM-D:X2-F 
LINE(Xl.yi)-(X2,Yl+3} ,PS 



750 

NACXM) 

ET.BF 

760 IF DS 

NA(XM) 

ET.BF 

770 IF D$ 

NA(YM) 

ET.BF 

780 IF D$ 

NAtYM) 

ET,BF 

790 SCREEN 1,0:GOTO 430 



D" THEN XM-XM+D:X2=F 
LINE(Xl,Yl)-(X2,Yl+3) , PS 

C" THEN YM"YM-D:y2-F 
LINE(Xl,Ya)-(Xl+3, Yl) , PS 

B" THEN YM-YM+D:Y2=F 
LINE{X1,Y1)- (Xl+3,y2) ,PS 



800 CLS: INPUT'DIRECAO C/B/E/D"; 

DS(1> 

810 INPUT"DISTANCIA";D(1) 

820 D$(2)-"" :C0LOR 1 :GOTO 600 

830 CLS 

840 INPUT"DEFIN1H ITEM NUMERO 

!0-9>";N 

850 IF N<0 OR N>9 THEN 830 

860 OS(N)-"" 

870 PRINT"USE <ESPACO> PARA LIN 

HA":PHINT"USE 'B' PARA LINHA VA 

ZIA":FOR D=l TO 1000:NEXT 

880 PMODE 4,1: COLOR 0,1:PCLS:SC 

REEN 1,0 

890 X=75:Y=145 

900 DRAW"BM75.150;alOONG3NH3;BM 

70,145;U100NF3NG3" 

910 IF PPOINT(X, Y)-0 THEN PSETC 

X,Y,1) ELSE PSET {X,Y,0) 

920 I5-INKEYS:IF 1$="" THEN 910 

930 OX=X:CY=V 

940 IF I$ = ''C" THEN 830 

950 IF IS="F" THEN 90 

IF I$=" " THEN COLOR 



960 

970 IF ISO" 



THENCOLOR 
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960 IF IS-" " THEN 0$CN)-0${N)+ 

"D" ELSE OS{N)=OS(N)+"B- 

990 CLS: INPUT "DIBECAO C/B/E/D" 

iDS 

1000 IF INSTRd, "CBED" ,DS)-0 TH 

EN 990 

1010 lNPUT"DI3tANCIA CCM)";D 

1020 IF D<-0 OR D>200 THEN 1010 

1030 SCREEN 1,0 

1040 IF D$-"E" THEN X-X-D/2 

1050 IF DS-'D" THEN X=){+D/2 

1060 IF DS="C'' THEN Y-Y-D/2 

1070 ir D$="B" THEN Y=Y+D/2 

1080 IF X<75 OK X>175 OR Y<45 

R Y>145 THEN SOUND 1 , 3 : X=OX; Y=0 

Y:GOT0 910 

1090 LINECOX.OY)-{X.Y) ,PSET 

1100 0S<;N)-0SCN)+DS+STH$CD)4" :" 

1110 GOTO 910 

1120 FOR K^i TO 4;PCOPY K+4 TO 

K:NEXT:GLS 

1130 PMODE 4.1: SCREEN 1.0 

1140 GOSUB 31Q 

1150 X-12e:Y=96:RT=0 

1160 IF X<3 THEN X=3 

1170 IF Y<3 THEN Y-3 

1180 GET!X-3,Y-3)-CX+3,Y+3> ,S,G 

1190 DRAW"C0:BM"+STR$ (X)+" , '*+ST 

R$ (Y) +"NU3ND3NL3Na3" 

1200 I3=INKEYS:1F 1$-"" THEN 12 

00 



5 POKE 23658,8 
10 BORDER 0: PAPER 0: INK 4: 
CLS 

12 GOSUB BOOO 

20 GOSUB 7000: PRINT INVERSE 
liAT 2,23:''[1 ]AMB":AT 3,23;"[ 
2 1PLAN":AT 4.23;"[3]MOB" ;AT 5 
,23;-t4 1GRAU'';AT 6.23;"[5)C^a 
R-;AT 7,23;"t6]IMPR":AT 8,23; 
"[71SArDA" 

30 LET KS=''12345.5;'' : GOSUB 
7040: G03UB 7000: IF 2=55 
THEN STOP 

40 GOSUB 1000* (Z-49) +1000; 
GOTO 20 
1000 LET NF=1: GOSUB 6080 
lOOS PLOT 0,0: LET X=0: LET ¥=0 
1010 PRINT PAPER 2; INK 6 i AT 2 
1.22; "MAXIMO^" ;KAX 

1015 PRtNT INVEBSE 1 ; AT 2,22;" 
tJJJANELA" rAT 3,2Z:"[P)POaTA";A 
T 4.Z2;"tB]BRANCO" ;AT 5,22;"[ ] 
DESENHA" ; AT 6 , 22 { " E S JSAIDA" ; AT 
7,22;"" 

1016 LET KS="JPBS ": GOSUB 7040 
; INK 3* tZ-74}+2«(Z = 80)+7*(2!-32 

) 

1O20 IF 2=83 THEN TNK 4: BETUR 
N 

1025 GOSUB 70 10: LET DX=X+D* ( <D 
5 = »D"J*SC)-0« ( (DS="E'') *SC) : LET 
DY=Y+D* ( (D$="C" ) *SC) -D* ( (D$="B 
-)*SC) : GOSUB 701O 
1030 LET DX=DX+D«( (D3="D")*SC)- 
D*(([>S="E">*SC) : LET DY=l)¥ + D*(( 
DS = "C")«SC)-D*((D$="B") *Sf.') 
1032 IF RX>175 OR DX<0 OR Dy>l/ 
5 OR DY<0 THEN PRINT FLASH I; 
70 AT 7.23; "ERBO": PAUSE 100: GOTO 



1015 
10 35 DRAW DX-X,DY-Y: LET X=PEEK 

23677: LET Y=PEEK 2367B: LET X 
S-STR$ (X/SC) : LET YS=STRS CY/S 
C) 

1037 TF LEN XS<3 THEN LET XS=F 
S( TO 3-LEN XS)+X$ 

1038 IF LEN Y$<3 THEN LET Y$=F 
3( TO 3-LEN Y3)+yS 

1039 LET XS-XSC TO 3): LET YS=Y 
S( TO 3): PRINT TNK 7 ; AT 10,24 
;"DX»"tX$;AT 11 , 24; "DY« " ; YS 

1040 GOTO 1016 

2000 IF NF=0 THEN RETURN 
200S FOR N=l TO 10: LET QS='"[" + 
STR$ N+'K+OSCN): PRTNT INVERS 
E 1;AT N*2.24+4-LEN QS;Q$; NEXT 

N 
2010 LET R=0: GOSUB 6060: LET C 
U-2 

2020 PRINT INVERSE 1;AT CU.29; 
CHR$ 144: FOR N=l TO 10: NEXT N 
: PRINT INVERSE 1 ; AT CU,29!" " 
2030 LET K$=TNKEyS: LET CU=CU-2 
*t( {K$ = "7'')*(CU>2) J)+2*({ (KS="6 
") * (CU<20) ) ) 

2040 TF K5<>"S" THEN GOTO 2020 
2050 LET OB-CU/Z: LET 0X=85: LE 
T 0Y-8b 

2057 LET F-1 : GOSUB fiOLO 
2060 GOSUB 7000; PRTNT AT S , 24 i 

FLASH 1;"OBJ=";0$(OB) ; FLASH 
iAT 7,22; INVERSE L ; " I 5 -8 JMOVE" 
:AT 8,ZZ;'tGiC0L0CA":AT 9.22;"[ 
H}HORARTO" i AT J I) . 22 : " { A JANTHORA 
":AT ] T,2Z;"IS ISAIDA" 
2070 LET KS="Sh/eCAHS" : GOSUB 7 
040: IF i:-«3 TllliN LET R = Q: LET 

F-1; GOSUB 6010: GOTO 0060 
20S0 LET F=l: GOSUB f.0 1 : LET Q 
X = 0X+2* t (Z = 56)*(0X<17.S) ) -2* I t2 = 
533 « (0X>1) ) .- LET 0Y = OY + 2* ( CZ=55 
)* (0y<175) 3-2* ( (2=54)* (oy>0)) 
2085 IF Z=72 OR Z=65 THEN GOSU 
B 6020 

2090 GOSUB 6010 

2100 IF Z=67 THEN LET F=0: GOS 
UB 6010: GOSUB 7000: GOTO 2000 
2110 GOTO 2070 

3000 PRINT AT 2 , 24 ; "PROJETO" 
3012 INPUT "ENTRE FIGURA A DEFT 
NIR ":0B: IF 0B< 1 OR OB>10 THEN 

GOTO 3012 
3 013 INPUT "DIGTTE NUMEHO DE LA 
DOS Cl-lS) ? "iSCOB): TF S(OB)< 
1 OR S(0B)>15 THEN GOTO 3013 
3014 INPUT "CODIGO DE DUAS LETR 
AS ?';03(0B) 

3016 LET R=0: GOSUB 6060: LET O 
X=80: LET Oy=80 

3017 FOR S=l TO S(0B)*2 STEP 2 
3020 FOR N=l TO 2: GOSUB 7010: 
LET D=D/125: LET O COB , S) =0 (OB , S 
)+C(D*(-l* tDS-"E")+{D$-"D") ))} : 

LET 0{OB,S+l)=OtOB,S+l)+{(D*C- 
1*(D3 = '-B") + {D3 = "C")3 )3 
3030 NEXT N 
3040 NEXT S 
3050 LET t=l: GOSUB 6010: INPUT 

"ESTA CORRETO (S/N) ?";S3: IF 
S9="N" THEN GOSUB 6010: FOR N= 
1 TO SC0B)*2+1: LET OCOB.N)-0: 
NEXT N: GOTO 3012 



3060 GOSUB 6010: RETURN 
4000 GOSUB 6200 

4015 IF Z=83 THEN SAVE ESSCREE 
NS : RETURN 
4020 SAVE ES DATA 0() 
40 30 SAVE E$ DATA S(} 
4040 SAVE ES DATA 03 
4050 RETURN 
5000 GOSUB 6200 

5010 IF 2=B3 THEN LOAD ESSCREE 
N$ ; RETURN 
5020 LOAD ES DATA Q{) 
5030 LOAD E$ DATA S[) 
5 04 LOAD E$ DATA 0$() 
5050 RETURN 
6000 COPY : RETURN 
6010 OVER F: INK 7: PLOT OX.OY: 
FOR N=T TO (S(0B)*2) STEP 2: D 
RAW 0<OB.N)«Cy-0<OB,N+l)*CX.OtO 
B,N)*CX+0(0B.N+1)*CY: NEXT N 
601^ OVER 0: TNK 4: RETURN 
6020 LET R = R+(2* [Z = 65) J-(2*{Z'=7 
2)3: TF H>360 THEN LET R=0 
6030 IF B<0 THEN LET R=3fe0-R 
6060 LET A=R* (PI/180) ; LET CY=S 
C*COS A: LET CX=SC*SIN A: RETUR 
N 

6080 INPUT "ENTRE MAXIMA DIMENS 
AO ? " ; MAX 

6090 LET SC=T75/MAX 
6100 RETURN 

6200 PRINT INVERSE 1 ;AT 10.23; 
"ITJTELA" ;AT IJ . 23 ; " [ D }DADOS- : 
LET KS="TD": GOSUB 7040: INPUT 
"ENTRE NOME DO ARQUIV0";ES: BET 
URN 

7000 FOR N=0 TO 21: PRINT PAPE 
R4:ATN.22;" ": NEXT 

N- PRINT AT 0.25; "MENU": RETURN 



fffi 



5 SCREEN 2,0: COLOR 1,15,15 

10 KEY OFFrGOTO 2000 

20 DEF FNA(XM)=1,9*SC*XM 

30 DIM 0$(9) ,S(10) 

40 O${0)="DD100',DC50;DE100iDB50 

i BD8 ; BOB ; DD40 : DC34 ; DE40 ; DB34 ; " 
50 OS CD ="DD50 ; DC60 : DE50 ;DB60 ;B 
DIO ; BC] ; DDIO ; DCIO ;DE10 ; DBlO iBD 
20;DD10;DC10jDE10;DB10;BC20:DCl 
0;DD10;DB10:DE10 iBElO ;DE10;DC10 

;DD10;DB10iBE20;BC15;DD50!" 

60 0$ (2) ="DD100 ;DC60 ;DE100 ;DB6Q 

70 O$(3)-"DD30rDC30;DE30;DB30;D 

C20;DD30; " 

80 O$(4)-"DD6O;DC60;DE6O;DB60 ; " 

85 GLS 

90 SCREEN 

100 LOCATE 8, 5: PRINT' 1: PLANE JA 

R AMBIENTE" 

110 LOCATE 8. 6: PRINT" 2: DESENHA 

R LAYOUT" 

120 LOCATE 8,7:PRTNT"3: DESENHA 

a. MOBILIA" 

130 LOCATE B,8:PHINT''4 : GHAVAR 

PROJETO" 
140 LOCATE 8. 9: PRINT'S- CAHHEGA 
R PROJETO" 

150 LOCATE 8,10:PBINT"6: IMPRIM 
IR PROJETO" 
160 LOCATE 8, 11: PRINT"?: TERMIN 
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170 LOCATE 8,14:INPUT"SIIA ESCOL 

HA " iN 

180 IF N<1 OH N>? THEN 1?0 

190 IF N=2 AND Fl=0 THEN LOCATE 

5 , 18=PBTNT"<e3colha prineiro a 

opcio 1>":G0T0 170 
200 IF N-1 THEN Fl-1 
210 ON N GOTO 350.1120,830,1700 
,1750,1790,230 
220 GOTO 90 
230 CLSiEND 
240 HF=0 

250 LINE{200,0)-(255.191) ,1.B 
260 DnAW'*BM206,10;S4 jAO iNR4D6R4 
BH2U6D3H4D3U6BR2D6R4U6NL4BR2D6R 
4U6NL4BR2NH4D3R4D3NL4Ba2NR4U3NR 
2U3R4BR4BD2DBD2D" 
270 IF RF=1 THEN RETURN 
280 DHAW''BM203.30;D6R2NU3H2U6BR 
6R4D6L4U6BH10D6R4U3L4R3UaL3BH10 
NH4D3R4D3NL4BR2U6B4D3L4BH6U3NR4 
D6R4'' 

290 DRAW''BM218.43:D6U3NR2U3R4BB 
6NR4D6a4" 
300 RETURN 

310 RF-l:LINEC201,l)-f254.190) . 
15.BF:G0SUB 250 

320 DRAW"BM208,30;ND6R4D3L4BR10 
BU3D6R3ElU4HlL3BR10;ND6R4D3L4Ri 
F3BB&U6R4L4D3R2" 
330 RETURN 

340 DBAU"BM2I3.70iD4FlR2ElU4H]L 
2GiBUlBRflBD3R3Ba5U3El403NL4D3BR8 
UBU2U2R2U2L4D2- 1 RETURN 
350 CIS 
360 PBINT"COMPBIMENTO MAXIMO DO 

AMBIENTE" 
370 INPUT" (era metraaJ'sLE 





380 IF LEO OH LE>100 THEN 350 




390 SC=100/LE 




400 SCREEN 2 




410 XM-0:YM-LE 




420 GOSUB 240:A=USR(0) 




430 XX=FNA(XM) :YY'FNA(YM) ; IF PO 




INT(XX,YY)<>1 THEN PSET {XX-, YY) . 

1 

440 I3=TNKEY3:IF IS="" THEN 430 






460 OX"XH:OY-YM 




455 DS(1)--'':DS<2)-"" 




460 IF IS-- " THEN CL=l sGOTO 530 




470 IF IS-'B" THEN CL=]5:G0T0 5 




30 




480 IF IS = ''C" THEN 400 


490 IF IS = ''F" THEN A=USH<0):GOT 


090 



500 IF I$="W THEN 710 

510 IF IS="0" THEN CL-i5:G0T0 8 

00 

520 GOTO 430 

530 SCREEN 

540 FOR A=l TO 2 

550 PHINT'Direcao" ;Ai " C/B/D/E" 

; : INPUT DS (A) 

560 IF DS<A)='"' THEN 600 

570 PHINT'Diatancia" ;A: " (metro 

a}"; : INPUT D(A> 

580 IF INSTB(1,"CBDE" ,DS{A))-0 

THEN550 

590 NEXT 

600 SCREEN 2 : A=USa2 (0) : A=USH1 (0 

) 

605 FOR A-1 TO 2 

610 IF DSCA)='" THEN 670 

620 IF DS(A)-''E" THEN XM-XM~D(A 

) 

630 IF D$(A)="D'' THEN XM-XM+D(A 

) 

640 IF DS(A)-"C" THEN YH-YM-D{A 

> 

6S0 IF DSCA3-"B" THEN YM-YM+D(A 

) 

660 NEXT A 

670 IF XM<0 OR XM>LE OB YM<0 OR 
YM>LE THEN BEEP : XM»=OX : yM-OY;GO 

TO 430 

680 X1=FNA(0X) :Y1=FNA(0Y) :X2=FN 

A(XM) :Y2=FNA(YM) 

690 LINE(X1,Y1)-(X2,Y2) ,CL 

695 A=USR(0) 

700 GOTO 430 

710 SCREEN 0: INPUT"Direcao C/ 

B/D/E" :D5 

720 INPUT''Digt3ncia "jD 

730 Xl-FNA(OX) ;yi=FNA(OY) 

735 SCHEEN2;A-USB2(0) :A=USB1 (0) 

750 IF D$="E" THEN XM=XM-D;X2=F 

NA(XM) :LINE(X1,Y1+1)-(X2,Y1+13 , 

1 :LINE(X1. YD -(X2, Y2) .1 

760 IF D$="D" THEN XM=XM+DrX2=F 

NAfXM) :LINE(X1,Y1 + 1)- (X2,YH-1) , 

1 rLINE{Xl . YD -(X2, Y21 , 1 

770 IF 0$="C" THEN YM=YM-D:Y2=F 

NA(YM) rLINE (Xl + 1 . y 1) - (Xl + l . Y2) , 

l:LlNE(!<l,yD -(X2,Y2) ,1 

730 IF DS^-B" THEN YM-YM+D:Y2=r 

NA(YK) :LINE{Xl+i.Yl)-(Xi+l,Y2) , 

1 : LINE (XI ,YD-(X2,Y2) ,1 

790 A=USa(0) :GOTO 430 

800 CLSiINPUT'-Direcao C/B/D/E 

"jDSd) 

810 INPUT"Distanclrt ";D(1) 

820 D3(Z)="'':G0T0 600 

830 CLS 

840 INPUT"DEFTNTR A PEt-A NUMEHO 
(0-9)" :N 

850 IF N<0 OR N>'^) THEN 830 

860 0$CN)="" 

870 SCREEN 2:HF-1:G0SUB 250 

880 DRAW"BM218.43 ; NR4D3R4D3NL4B 

fi2U6H4D3L4BH6U3NR4I>6H4 ;BM210 ,56 

; D6R4U3L4R3U3L3BaJ SDfiU JNH2l)3H4B 

R10NR4D6B'J" 

890 X=;5:Y=145 

900 DRAW"BM75, 150iH100NG3NH3:PM 

70,345 rU] OONFaNCa" 

910 IF P0TNT(X.YK>1 THEN PSET ( 

X,Y) .1 

920 IS=INKEY5:JF IS="" THEN 920 



925 A=USH3(0) 
930 OX=X;OY=Y 
940 IF IS="C" 



950 IF IS="F' 

960 IF I5=" ' 

970 IF ISO" 

980 IF IS=" ' 



THEN 8 JO 

THEN 90 

THEN CL=1 
• THEN CL"=15 

THEN OS (N) -OS(N)+ 
"D" ELSE OS (N)=03 tN)+"B" 
990 SCREENO: TNPUT"Direcao C/B 
/D/E";D$ 

1000 IF INSTR (1 , "CEDE" ,DS) =0 TH 
EN 990 

1010 INPUT'Distancia (cuhJ-jD 
1020 IF DC=0 OR D>200 THEN 1010 
1030 SCREEN2:A='USR2(0) ;A-'USR4(0 
) 

1040 IF DS-"E" THEN X-X-D/2 
1050 IF DS^-D" THEN X=X-t-D/2 
1060 IF D$="C" THEN y-Y-D/2 
1070 IF DS=-"B" THEN Y-Y+D/2 
1080 IF X<75 OR X>175 OB Y<45 
K Y>145 THEN BEEP : X-OX : Y-OY : GOT 
910 

1090 LINE(OX,OY)-(X,Y! .CL 
1100 OS(N}=0$(N)+D$+MlD$(STa$(D 
) ,2)+";" 
1110 GOTO 910 
1120 SCREEN 2 
1130 A=USR2(0) :A-USH1(0) 
1140 GOSUB 310 
1150 X=12e;y=96:flT=0 
1160 IF X<3 THEN X=3 
1170 IF Y<3 THEN Y=3 
1190 PUTSPBITEO, (X. Y) .1 ,0 
J200 IS = INKEyS:IFIS=«"" THEN 120 






Neste artigo, voce vera como 
aplicar o que aprendeu sobre dimensoes 
fracionadas na simulacao de imagerts 
da natureza, como uma montanha 
ou urn floco de neve. 



No ardgo da pagina 1356, vimos co- 
mo obter imagens fascinantes por meio 
de programas recursivos muito simples. 
Essas imagens, tambem denominadasy/- 
guras fractals, sao geradas matematica- 
mente na fronteira cnire o que chama- 
mos de regular e irregular. 

Com a tecnica fractal podemos con- 
seguir formas muito mais proximas das 
obsen'adas na natureza que com os mo- 
delos construidos a partir da ciencia tra- 
dicional. Mostraremos aqui como fa^er 
simulagoes desse tipo no seu micro. 

O primeiro programa deseiiha uma 
das formas mais simetricas da natureza: 
a forma hexagonal de um floco de neve. 



10 BORDER 0: PAPEH 0: INK 5: 

BRtCSHT 1: CLS 

20 LET AN=2*ATN U)/3: LET S2 

=2/SQR t3) 

30 LET XC=127: LET yc=90 : LET 

S=120: LET C=2 

50 GOSIJB 1000 

60 STOP 
1000 LET S=3/l: IF S<1 THEN LE 
T S=S*3: RETURN 

1020 PLOT INVERSE 1; OVER 1 ; IN 
T (XC:+SZ*S*SIN (-AN)) , (¥C-S2*S* 
COS f-AN)): FOR K=0 TO 8*ATN (1 
)-AN STEP 2*AM 

1030 DRAW XC+2*S*SIN (K)-PEEK 2 
3677,yC-2*S*C0S (K)-PEEK 23678 
1040 DRAW XC+S2*S*SIN CK+AN)-PE 
EK 23677, YC-S2*S*C0S <K+AN)-PEE 
K 235?8 
1050 NEXT K 

1060 LET C-C-1: GOSUB 1000 
J 070 LET yC = YC-l .36*3: GOSUB 10 
00 

10 BO LET yC=Yr+.68*S: LET •:^C=)iC 
+1 . 19*S; aOSUB 1000 
1090 LET YC = YC+1 .36*3: (JOSUB 10 
UO 

1100 LET 'i'C = YC+.68*S: LET XC-XC 
-l.]9*S: GOSUB 1000 
1110 LET YC=YC-.6e*S- LET XC=1X.C 
-1.19*S: GOSUB iOnO 
1120 LET yC=YC-1.36*S: GOSUB 10 
00 

1130 LET YC=YC+.68*S: LET XC=XC 
+1.19*3: LET S=S''3: LET C-C+1: 
RETURN 



50 GOSUB 1000 

60 GOTO 60 

1000 S=S/3:IF S<1 THEN S*S*3:aE 

TURN 

1010 IF C-2 THEN COLOR 4 ELSE I 

F C=l THEN COLOR 2 ELSE COLOR C 

1020 DRAW"BM"+STR$(INT(XC+S2*S* 

SIN (-AN) } ) +" , "+STRS (INT (YC-S2*S 

*C0SC-AN1 )) :FOR K-0 TO 8*ATNU) 

-AN STEP 2*AN 

1030 LINE -(XC+2*S*SIN(K} .YC-2* 

S*COS(K) J ,PSET 

1040 LINE -(XC+S2*S*SIN(K+AN3 ,Y 

C-S2*S*C0S (K+AN) ) , PSET 

1050 NEXT: FAINT (XCYC) 

1060 C-C-1 :G0SUB 1000 

1070 YC=YC-1.36*S:G0SUB 1000 

1080 YC=YC+.6a*S:XC=XC+1.19*S:G 

OSUB 10 00 

1090 YC-YC+1.36*S: GOSUB 1000 

1100 YC^'YC+.eB^StXC-XC-l. 19*S:G 

OSUB 1000 

1110 YC=YC-.68*S:XC=XC-1.19*S:G 

OSUB lOOO 

1120 YC-YC-1.36*S:GOSUB 1000 

1130 YC-YC+.68*E;XC-XC+1.19*S:S 

=S*3:C=C+1: RETURN 



1130 YC = YC + .68 * S:XC - XC 
+ 1.19 * 3:3 = S * 3:C = C + 1: 
RETURN 



[EE] 



a 



10 PMODE 3,1 ;PCLS: SCREEN 1,0 
20 AN-2*ATN(l}/3:S2-2/SQR(35 
30 XC-127:YC=95:S=135:C-4 



10 HGR2 

20 AN - 2 * ATN (1) / 3:S2 = 2 

/ SQR (3} 
30 XC - 127:YC - 95:3 = 135:C = 

4 
50 GOSUB 1000 
60 GOTO 60 
1000 S=S/3i IFS<1 THEN S 

= S * 3: RETURN 
1020 HPLOT INT (XC + 32 * S * 

SIN ( - AN)). INT (YC - S2 « 
S * COS ( - AN) } : FOR K = TO 

8 * ATN (1) - AN STEP 2 * AN 
1030 HPLOT TO XC + 2 * S * S 
IN (K) ,YC - 2 * S * COS (K) 
1040 HPLOT TO XC + S2 * 3 * 
SIN (K + AN) ,YC - S2 * S * COS 

(K + AN) 
10 50 NEXT 

1060 C = C - Ir GOSUB 1000 
JO^O YC = YC - 1.36 * S: GOSUB 
1000 

1080 YC = YC + .68 * S:XC - XC 
+ 1.19 * S: GOSUB 1000 
1090 YC =» YC + 1.36 * S: GOSUB 
1000 
1100 YC = YC + .68 * S:XC = XC 

- 1.19 * 3: GOSUB 1000 

1110 YC = YC - .68 * S;XC = XC 

- 1,19 * S: GOSUB 1000 

1120 YC - YC - 1,36 * S: GOSUB 
1000 



ftU 



10 SCREEN 2 

20 At4=2*ATNtl)/3:S2=2/SQR(3j 

30 XC=127:YC=95:S-135:C=4 

50 GOSUB 1000 

60 GOTO 60 

1000 E=S/3rIF S<1 THEN S=S*3:BK 

TURN 

1010 IF C=2 THEN COLOR 8 ELSE I 

F C«l THEN COLOR 11 ELSE COLOR 

C 

1020 DRAW "BM'+STRS (INT(XC+S2*S 

■SINC-AN) ) )+" ,"+STRS(TNT(yC-S2« 

S*COS{-AN))) :FOn K=0 TO 8«ATN{1 

)-AN STEP 2*AN 

1030 LINE- (XC+2«S*SIN(K) ,YC-2*S 

*COS{K)) 

1040 LINE-(XC+E2*S*SIN(K+AN) .YC 

-S2*S*C0S(K+AN) ) 

1050 NEXT: PAINT (XC.YC) 

1060 C=C-l:GOSUB 1000 

1070 YC=YC-1, 36*S: GOSUB 1000 

1080 YC=yC+-68«S:XC^XC+1.19*S:G 

OSUB 100 

1090 YC=yC+l. 36*S: GOSUB 1000 

1100 YC = YC+.68*S:)(C = XC-i. 19*S;G 

OSUB 100 

1110 YC=YC-.68*S;XC=XC-1 . 19*S:G 

OSUB 1000 

1120 YC=YC-1 . 36*S:G0SUB IDOQ 

1130 YC=yC+.68*S:XC=XC+l .19*S:S 

=S*3:C=C+1 : RETURN 

Esse programa e baseado na curva 
floco de neve, originalmente desenhada 
por Von Koch. A figura criada se asse- 
melha a um crista! de gelo em um tloco 
de neve ou a uma ilha com litoral mui- 
to recortado. A linha 20 especifica um 
triangulo equiiatero (seus Sngulos me- 
dem 60 graus e os lados sao iguais) com 
um fator de escala definido em S2. A li- 
nha 30 define as primeiras coordenadas 
X e Y do centro, um fator de escala ini- 
cial e a cor do primeiro desenho (exceto 
no Apple). A linha 50 chama a sub-ro- 
tina que desenha a estrela de seis pon- 
tas que corapoe a figura. 



SIMETRIA E ASSIMETRIA 



Aptsar da irregularidade do desenho, 
a simetria esta presente na forma da es- 
trela. Como ocorre com freqijencia na 




natureza. a ordem e o caos se combinam 
nessa figura. Porem, muitas estruturas 
simutadas pela tecnica fractal sao total- 
mente assimetricas. E o caso das curvas 
de um rio, das crateras da Lua, das veias 
e arterias do corpb humano e do con- 
torno das montanhas. O que distingue 
essas estruturas das formas simetricas 
geradas matematicamente sao os eie- 



mentos a!eat6rios que entram em sua 
composiQao. Podemos simuiar tais ele- 
mentos no computador por meio da 
funfao RND. O programa que se segue 
gera a imagem de uma montanha: 



10 BORDER 0: PAPER 0: 
BRIGHT 1: CLS 



INK 7: 



A tunica dos fractais e respcinsdvel 
peia^ mais perfeitas imagens de formas 
naturals simuladas no computador. 
A constru^iLo de uma jmag«m complexa 
como a escarpa nevada dc!;la pagina 
sd ^ posjiivel em computadores 
gr^ficos de maiur porle. Porem, a mesma 
tecnica pode ser utJIizada em micros 
dom^sticos, com resulfado semeihante 
ao mostrado na tlustrafao do atto. 



15 PRINT AT 6.2; INVERSE 1;" 
GEBADOR DE MONTAMHA FRACTAL " 
20 DIM C(200,2.2) ; LET F-1: 
LET G=2: LET C(l,1.2>=25: LET 
C(l.l.lJ-0 

22 INPUT 'DIGITE 'RESOLUCAQ' 
DA MONTANHA [16-100] ? ' ; S 

23 IF S<16 OR S>100 THEN 
GOTO 22 

24 INPUT "DIGITE GRAU DE ■BUG 
OSIDADE' [i-5 1?-iRG 

25 IF BG<1 Oa RG>5 THEN GOTO 
24 

26 DEF FN R (X) -HG- { (RND*X) * (2 
*RG)) 

27 PAPER 1: CLS 

30 LET L = 2;!0/S: LET H-L/(SQB 

3} 

40 FOB K-1 TO S+1 : LET C(K,1, 

1)-C(1,1,1)+L*K-FN RCl) ; LET 

C(K.i.2)-C(K-l.i,2)-FN B{,l)r 

NEXT K 

50 FOB J-1 TO S: FOR K-1 TO S 

-J+1 

60 LET CCK,G.1)-FN R{1)+(C(K, 

F,l)+C{K-t-l.f ,l)>/2 

70 LET CCK,G.2)=FN R[1>+H+(C( 

K,F,2)+C(K+i,F.2) )/Z 

eO PLOT C(K,F.l) ,CCK,F,2) : 

DRAM CCK+1.F'.1>-PEEK 23677. C( 

K+1,F,2)-PEEK 23678 

90 DRAW C(K,G, 1)-PEEK 23677,C 

(K.G,2)-PEEK 23678: DRAW C(K, 

F.1}-PEEK 23677, C{K.F,2)-PEEK 

23678 
100 NEXT K: LET F-3-F- LET G=3 
-F: NEXT J 

110 FOR v=40 TO STEP -.75 
120 PLOT 0,y 
130 FOR n=l TO 100 
140 LET a=RND*10 
150 LET b=5-RND*10 
160 IF a+PEEK Z3677>255 THEN 
LET ti-100: DRAW 255-PEEK 2.1677 
,b: GOTO 190 

170 IF (PEEK 23678)+b<0 THEN 
GOTO 150 
160 DflAW a,b 
190 NEXT n 
200 NEXT y 



210 FOB ni=USH 



TO USR "a"+7 



: READ a; POKE m , a : NEXT m 

220 DATA 16,56,84.16.56.84.146 

,16 

2 30 FOR n-1 TO 80 

^40 PRINT AT 17+ENT (RND*4) . 

aND*31; BRIGHT I; PAPER 4; 

INVERSE liCHRS 144; 

25 NEXT n 

260 PRINT 11; INVERSE IjAT 0,4 

r" RES-':S:" RUOOSIDADE-" ;RG 

270 GOTO 270 * 

D 

10 PMOOE 4.1 :PCLS: SCREEN 1,1 
20 DIM C{200,1,1) :F-0:G-1:C(0.0 
.1)»150:CCO,0.0)-10 
30 S-80:L-230/S:H-L/SQR<3) :DEFF 
NBCX)-3-BND(0T*6 
I 40 FOR K"l TO S:C(K,0,0)-C{0,0, 




) +L«K-FNR (0 ) : C ( K . , 1 ) -C (K- 1,0. 

l)-FNR(O) :NEXT 

50 FOB J»l TO S:FCft K"0 TO S-J 

60 C{K,C,0>-FNR(0)+(C(K.F,0)+CC 

K+l.F.0))/2 

70 C(K,G,1)»FNB(0)-H+(C{K,F,11+ 

C(K+l,F.l))/2 

SO LINE (C{K,F,0) ,C(K,F,1))-(C( 

K+1,F,0) ,C(K+1,F,1)) ,PSET 

90 LINE -{C{K,G,0] ,C(K,Ga)) -PS 

ET:LINE-(C(K,F,0) ,C(K,F,1)) ,PSE 

T 

100 NEXTiF-l-F:G-l-F:NEXT 

110 GOTO 110 



f>\U 



HIE 



10 EI0I12 

20 DIM CC200,1,1):F - 0:G - 1: 
C(0,0,1} - 150:C(0,0,0) ■ 10 
30 S - BO:L - 230 / S:H - L / 
SQH (3) t DEF FN RCX) - 3 - VLH 
D CD * 6 

40 FOR K •= 1 TO S:CCK,0,0} - C 
(0,0,0) + L • K - FN R(0) :C(K, 
0,1) - C(K - 1,0,1) - FN BCD) : 

NEXT 
50 FOR J - 1 TO S : FOR K - T 
S - J 

60 CCK.G.O) - FN RtO) + CCtK.f 
,01 + C(K + 1,F,0)) / 2 
70 CCK.G.l) - FN RtO) - H + {C 
(K,F,1) + C{K + l.F.l) ) / 2 
80 HPLOT C(K,F,0) ,CCK,F,l) TO 
CCK + l.F.O) .C(K + 1,F,1J 
90 HPLOT TO C(K,G,0) ,C(K.G,i) 
: HPLOT TO C(K.F,0) ,C{K.F.i> 
100 NEXT :F«1-F:G-1-F: 

NEXT 
110 GOTO 110 



10 SCREEN 2 

20 DIM C(200,l.l) :F"0:G-1:C(0.0 

,1)*150:C(0,0.0)'«10 

30 S-80:L-230/S:H-L/SQR(3} :DEFF 

NR{X)»3-HND(1)*6 m 

40 FOB K-1 TO S:CCK,0,0)-C(0.0,^ 

0)+L*K-FNR(0) :C(K.0,1)-CCK-1,0. 

l)-FNR(O) iNEXT 

50 FOR J=l TO S:FOa K-0 TO S-J 

60 C(K,G,0)-FNR(O)+(C(K.F,0)+C( 

K+l,F,0))/2 

70 C(K.G,1)-FNB(0}-H+(G(K,F.1)+, 

CCK+l,F,l))/2 

80 LINE(C(K.F,0) ,C(K,F,1))-(C(1 

+1,F,0) ,C(K+1,F,1)) 

90 LINE-{CCK,G,0) ,C<K,G,1) } :tll 

E-{C(K.F,0) ,C{K,F.l)) 

100 NEXT:F*1-F:C=1-F:NEXT 

110 GOTO 110 

A linha 30 define o fator de escala 
dos triangulos c especifica o comprimcn- 
to e a altura de urn (ado. A linha 40 
prcenche duas matrizes com as coorde- 
nadas iniciais de cada triSnguLo. Obser- 
ve que hd um fator aleat6rio — portan- 
to, OS valores irao variar em um peque- 
no intervalq a cada execufao do progra- 
ma. A linha 50 inicializa dois lagos: um 
para desenhar os triangulos. horizontal- 
mente na tela, e outro para coloca-Ios 
mais acima. 

O Venice de cada tritngulo ^ especi- 
ficado nas linhas 60 (coordenada X) e 
70 (coordenada Y). A linha 80 move o 
cursor para o canio esquerdo do trian- 



gulo e desenha sua base. No programa 
para o Spectrum, os PEEK subtraidos 
das coordenadas asseguram que os pon- 
tos nao caiam fora da tela, o que pro- 
vocaria uma interrup^ao do programa 
ao se teniar executar o DRAW. Na li- 
nha 90, o DRAW i direcionado para o 
Venice do triangulo e depois para o can- 
to esquerdo fo inicio). A linha 100 com- 
pleta o primeiro la?o. Este desenha uma 
fileira de triangulos e, apos redefinir al- 
gumas variaveis, de maneira a deslocar 
a fileira um pouco mais para cima, re- 
come^a a construgao da montanha. Na 
vers§o para o Spectrum, o programa 
compleia a ftgura desenhando "arvo- 
res" na base da montanha. 



FORMAS VARIADAS 



V Modtficando os valores de algumas 
varietveis, voce poderd obter muitas ima- 
gens diferentes. Mas, tenibre-se, essa va- 
ria(;ao atinge apenas o tamanho, a po- 
siv'ao e outros detalhes, mas nao a for- 
ma geral da figura. 

~. O proximo programa permite que vo- 
ce introduza uma forma inicia], cons- 
truindo, a partir dela, uma figura frac- 
tal. O grande numero de sub-rotinas re- 
cursivas pode ser um problema no Ap- 
ple — esse micro so admite que uma 
sub-rotina seja chamada por ela mesma 
24 vezes. Por isso deve-se ter cuidado ao 
escolher o ni'vel de recursao. 



» 




10 POKE 2 365b. 8: LET F=0: LET 

AS-'": LET CL=X 

20 DIM Xd-OO): DIM Y(IOO): 

DIM TC30> : DIM U(30) : DIM U( 

60) r DIM W{60) : DIM J (100) 

25 BORDER 0: fAfEIA 7: IMK 0: 

CLS 

30 GOSUH 140 

40 GOSUB 350 «;! 

50 INPUT -No DE NTfOfeTS DE REC 

UnSAO ";NR: IF ABS {INT (NR) ) 

<1 THEN GOTO 50 

60 LET F"l: LET N=0 ; CLS 

70 PLOT INVERSE 1; OVEH I; 

INT CL27+X(P)) ,INT (fl5+Y(P)) 

»80 OOSUB 500 ^ IF P>»2 THEN 
GOTO 80 
90 LET AS=INKEYS: IF AS-"' 
THEN GOTO 90 

100 PaiNT il;-S PABA SAIB. QUA 
LQUER OUTRA P/ CONTINUAH" 
110 LET AS'INKEYS: IF AS'="* 

THEN GOTO 110 
120 IF ASO'S" THEN GOTO 25 
130 CLS : STOP 
140 IF F=0 THEN GOTO 170 
150 PRINT "MESMA FORMA INICIAL 
(S/N) ? 'i 

160 LET AS=INKEYS: IF ASO'S" 
AND ASO'N" THEN GOTO 160 




165 PRINT A$ 

170 TF F-0 OH AS="N" THEN 

GOSUB 230 

180 FOR K=2 TO CV+1 

190 LET P-K-i 

200 LET X{P)=TCK): LET YtPp 

K) 

210 NEXT K i^^ 

220 RETURN *■ 

230 INPUT "No DE VERTICES " ; UT 

240 FOR L-2 TO VT+1 

250 INPUT "UEBTICE " ; CL-l ) : " =" 

' X Y 

260 LET T<L)-X*e5: LET U(L)-y* 

85 

270 IF L=2 THEN PLOT INT (127 
+T(L) ) , INT {85+U(L) ) 

275 IF L02 THEN DRAW 127+TtL 

)-PEEK 23677. 85+tJ(L) -PEEK 

23678 

^80 NEXT L 

290 PptNT 'CURVA FEG9ADA (S/N) 

? " ; 

300 LET A3-INKEYS: IF AS<>"N- 
AND AS<>"S- THEN GOTO 300 
305 PRINT A3 

310 IF Aa'-N" THEN LET CV=VT : 
PAtfflE Oi RETURN 

320 LET CV"UT+J : LET T{CU+1)=T 

(2) : LET U(CV+1)"U(2) 

3)0 DBAW 127+T(CV)-PEEK 23677. 

85+U(CV)-PEEK 23678 

340 RETURN 

350 CLS : TF F-0 THEN GOTO 

380 
360 PRINT "MESMO GEHADOB (S/N) 
? "; 

370 LET A3=INKEYS: IF AS<>"3" 

AND A$<>"N" THEN GOTO 3/D 

3 75 PPTNT AS 

3B0 IF F=0 OR AS="N" THEN 

GOSUB 4 00 

390 RETURN 

400 INPUT "No DE VEBTTCES DO G 

FRADOR NAO INCLUINDO AS EXTR 

EMTDADES <U.n) E [1,0) " ; GN 

420 PLOT INVERSE li OVER 1:85 

,35 

430 FOR M=2 TO GN+1 
-340 INPUT "UFRTICE "i(M-l);" = " 

• X V 

450 IF ABS (INT (X)}>t OH ABS 

(INT (y))>l THEN GOTO 440 

4f>U LET V(MJ"X: LET W(M3=Y: 

LKT X=X*«5+85: LET y=85+y*85: 

DElAtf X-PEEK 23677, Y-PEEK 23678 

4 7 WEXT M 

480 DRAW i;5-PEEK 23677,85- 

PEEK 23678: PAUSE 

49[) RETURN 

50n IF NR=N THEN GOStJB 520 

505 IF NRON THEN GOSUB 570 

510 RETURN 

520 FOR W=i TO GN+1 

5 30 LET P^P-1 

540 IF AB:7 X(P)>127 OB ABS Y{P 

>>85 THEN GO'l'O 560 

S50 DRAW 12 7-i-X(P)-PEEK 23577. 

85+YCP)-PEEK 23678 

560 NEXT W: RETURN 

5 70 LET N-N-t-1 

580 IF N=I THEN LET JM-CV-l 

585 IF NOl THEN LET JM = GN + 1 



if 



590 FOB E=) TO JM 5v 
595 IF P=l THEN LET E»JSt: 
NEXT E; RETURN ' <^, 

•600 LET TX=X(P3; LET TY'Y (P) 
f'' 610 LET BX = X(P-1): LET BY = Y(P- 

i) . 

620 LET DX=TX-BX: LET DY=TY-BV 

630 FOR F=2 TO GN+1 

LET XCP)=DX*V[F)-DY*WCF)+ 

LET ¥(P)=D¥*V(F)+DX*U{F)+ 



LET P-P-M 

NEXT F 

LET XCP)=TX'. LET Y(P)=TY 

LET J(CL)=E: LET CL=CL+1: 
UB 500: LET CL=CL-1 : LET E= 
LI 

NEXT E 

LET N=N-1 ' 

RETURN 1S9^^. 




640 

BX 

650 

BY 

f.60 

67 

6R0 

(VJO 

GO 2 

.HC 

700 

710 

720 

Q 

10 DIM X(50) .Y{50> ,XT(60) .YTdO 
) .XG(20) .YG(20) . J(50) 
20 PMODE 4.1; COLOR 0.1:PCLS:CLS 
30 GOSUa 140 
4 GOSUB 350 

50 INPUT"NO.DE NIUEIS DE RECURS 
AO -" ;NR:NR^INT(NH) ! IF NH<.1 THE 
N 50 

60 F=1:N"0:PCLS: SCREEN 1.0 
70 LINE -(127-t-X(P) ,96-y CP) ) .PRE 
SET 
•80 GOSUB 500: IF P>0 THEN BO 
90 A5 = INKEYS:IF AS^'"* THEN 90 
100 CLS;PftlNT''S PARA SAIB, QUAL 
QUEB OUTRA TECLA PAFtA CONTI 
NUAH" 

110 AS-INKEY$:IF AS^"' THEN 110 
120 IF ASO'S" THEN 20 
130 CLS: END 
140 IF F=0 THEN 170 
150 PRINT"MESHA FORMA INICIAL C 
S/N) ?" i 

160 A$ = INKEYS;IF ASO'S" AND AS 
O-'N" THEN 160 ELSE PRINT AT AS 
170 IF F=0 OR AS»"N" GOSUB 230 
180 FOB K=l TO CV 
190 P=K-1 

200 X(P)-XT(K) : Y(P)-yT(K) 
210 NEXT 
220 HETUHN 

230 INPUT"NO.DE VERTICES NA FOR 
KE INICIAL "!VT:VT=1NT[VT) :IF U 
T<1 THEN 230 
240 FOR L*-l TO VT 
250 PRINT"VERTICE ";L::INPUT" - 

"iX.YiIF ABSCX)>1 OB AES{y)>l 
THEN 250 

260 XTtL)=X*95:YT(L)-Y*95 
270 IF L=l THEN LINE -[127+XT(L 
) .96-YT(L) ), PRESET ELSE LINE -{ 
127+XT(L) ,96-YT{L) ) , PSET 
260 NEXT 

290 PHINT"CURVA FECHADA (S/N)?"; 
300 AS=INKEYS:IF AS<>"N" AND AS 
O-S" THEN 300 ELSE PRINT A$ 
310 IF AS^^N" THENCV-VT: GOSUB 7 
30; RETURN 

320 CU=VT+i-.XT{CV}=XT(l) ! YT (CV) 
-YTCl) 



3> -ff5* 



1W» 



330 LINE- [127+XTtCV) ,96-YT{Cvn 

,PSET:GOSUB 730 

340 RETURN 

350 PCLSrIF F=0 THEM 380 

360 PPINT"MESMO GERADOR (S/N) ? 

t 

370 AS-INKEYS:IF A3<>"S' AND AS 

<>"N' THEN 370 ELSE PHINT AS 

360 IF F=0 OR AS="N" QOSUB 400 

390 EETUHN 

400 PRINT''NO.DE VERTICES NO GER 

ADOR" 

410 INPUT"NAO INCLUINDO AS EXTR 

EMIDADES (0,0) E (1,0) - ";GN 

:GN=INT(GN) :IF GN<1 THEN 410 

420 DRAW "BM8 0,96" 

430 FOR M=l TO GM 

440 PRINT "WEHTICE "iM;"DO GEH.A 

DOR "; : INPUT "- "jX.Y 

450 IF ABS{X)>1 OH ABS(Y)>1 THE 

N 440 

460 XG(M)=X: YGCM)-Y:X-X*95+eO: Y 

=96-Y*95:LiNE-CX.Y) ,PSET 

470 NEXT 

480 LINE-(175,96) ,PSET:COSUB 73 



490 RETURN 

500 IF HR=N GOSUB 520 ELSE GOSU 

B 570 

SIO RETURN 

520 FOE L-1 TO GN+1 

530 P-P-1 

540 IF ABS(X{P) }>I27 OR ABS(Y(P 

))>95 THEN 560 

550 LINE- (1Z7+X(P) ,96-Y tP) ) , PSE 

T 

560 NEXT: RETURN 

570 N=N+1 

580 IF N=l THEN JM-CV-I ELSE JM 

"GN+i 

590 FOR J-1 TO JM 

600 TX-X(P) :TY=Y(P) 

610 BX-X(P-n :By=Y{P-l) 

620 DX-TX-BX:DY='Ty-BV 

630 FOR E=l TO GN 

640 X(P)-DX«XGCE) -DY*YG(E) iRX 

650 Y (P)-DY*XG CE)+DX«YG {E)+BY 

660 P-P+1 

670 NEXT 

680 X tP)=TX:S (P)-TY 

690 J(CL)=J:CI.=CC.+ 1:G03UB 500 :C 

L=CL-1; J«J(CL) 

700 NEXT J 

710 N=N-1 

720 RETURN 

730 A$-INKEVS: SCREEN l,0:K=iOOO 

740 K=K-1:IF K>0 AND INKEYS-^"" 

THEN 740 

750 RETURN 



[EE] 



5 HOME 

10 DIM X (50) .Y(50) .XT(IO) . YT(i 

0) .XGC20) .YG(2C) . J(50) 

3 GOSUB 14 

40 GOSUB 350 

50 TEXT : HOME : INPUT "QUANTO 

S NIVEIS DE HECURSAO " : NR : NR = 

INT (NR) : IF NR < 1 THEN 50 
60 F = 1:N = 0; HGR2 
70 HC0LOR= 3: HPLOT 127 + X(P) 
.96 - YCP) 



80 GOSUB 500: IF P > THEN 80 

90 GET A$ 

100 TEXT : HOME : PHINT "<S> P 

AHA SAIH E QUALQUEB OUTRA PAHA 

CON-TINUAR" 

110 GET A$ 

120 IF AS < > "S" THEN 30 

130 HOME : END 

140 IF F = THEN 170 

150 TEXT : HOME : PRINT "MESMA 

FOHMA INICIAL?(S/N) " ; 
160 GET AS: IF A$ < > "S" AND 

AS < > "N" THEN 160 
165 PRINT AS 
170 IF F » OH AS = "N" THEN 

GOSUB 230 
180 FOE K = 1 TO CV 
190 P = K - 1 

200 X(P) = XT(K):Y(P) = YT(K) 
210 NEXT 
220 RETURN 

230 INPUT "QTOS. VERTICES Hh F 
OHMA INICIAL '•;yT:UT = INT (VT 
) : IF VT < 1 THEN 2 30 
240 FOR L = 1 TO VT 
250 PHINT "UERTICE ":L;: INPUT 

'■ - " iX.Y: IF AB3 (X) > 1 OB 

ABS (Y) > 1 THEN 250 
260 XT(L} = X « 95:YTCL) = Y « 
95 

265 NEXT 
270 PHINT "CUHUA FECHADA (S/N) 

?" ; 
280 GET A3: IF AS < > "N" AND 

AS < > "S" THEN 280 
285 PRINT AS: FOR T = 1 TO 300 
: NEXT : HGR2 
290 FOR L = 1 TO VT 
300 IF L = 1 THEN HCOLOa= 3: 
HPLOT 127 + XT CD, 96 - YTCL) 
302 IF L < > 1 THEN HCOLOH- 
3: HPLOT TO 127 + XT(L) .96 - Y 
T(L) 

307 NEXT 

310 IF AS = "N" THEN CV = VT : 
GOSUB 7 30: RETURN 
320 CV - VT + i:XTCCV> - XT(1): 
YTCCV) = YT(1J 

330 HPLOT TO 127 + XT(CV),96 
- YT{CU) : GOSUB 730 
340 RETURN 

350 IF F = THEN 380 
360 TEXT : HOME : PRINT "MESMO 

GERADOR? (S/N)" ; 
370 GET A$: IF AS < > "S" AND- 

AS < > "N" THEN 370 
375 PRINT AS 
380 IF F = OR A$ = "N" THEN 

GOSUB 400 
390 RETURN 

400 TEXT ; HOME : INPUT "QUANT 
OS VERTICES NO GERADOR NAO INCL 
UlN-DO AS EXTREMIDADES tO,0) E 
(1.0) ";GN 

410 GN = INT (GN) : IF GN t; 1 T 
HEN 400 

4 30 FOR M = 1 TO GN 

440 PRINT "UEHTICE ";M;" DO GE 

RADOR" i : INPUT " - "iXG(M),YG{M 

) 

450 IF ABS (XG(M)) > 1 OH AB 

5 (YGCM)) > 1 THEN 440 
455 NEXT 



457 HGR2 : BCOLOR= 3: HPLOT 80 
,96 

458 FOR M = 1 TO GN 

460 X = XG(M) * 95 + SO;Y = 96 

- YG{M) * 95: HPLOT TO X , Y 

470 NEXT 

480 HPLOT TO 175.96: GOSUB 73 



490 RETUftN 

500 IF NH - N THEN GOSUB 520 

505 IF NH < > N THEN GOSUB 5 

70 

510 HETUHN 

5 20 FOR L = 1 TO GN + 1 

530 P = P - I 

540 IF ABS {X(P)) > 127 OR A 

BS (YCP) ) > 95 THEN 560 

550 HPLOT TO 127 + X(P).96 - 

Y(P) 

560 NEXT : RETURN 

570 N = N + 1 

5B0 IF N = 1 THEN JM = CV - 1 

585 IF N < > 1 THEN JM = GN + 

1 

590 FOR J = 1 TO JM 

600 TX = X{P) :TY «= Y(P) 

610 BX = XtP - 1):BY '■- Y(P - 1) 

620 DX = TX - BX:DY = TY - BY 

630 FOR E - 1 TO GN 

640 X(P) = DX * XG(E) - DY * YG 

(E) + BX 
650 Y(P) = DY * XG(EJ + DX * YG 

(E) +■ BY 
660 P - P + 1 
670 NEXT E 

680 X(P) =• TX:Y(P) - TY 
690 J (CD = J:CL = CL + 1: GOSU 
B SOOrCL = CL - 1:J = J(CL) 
7 00 NEXT J 
710 N » N - 1 

730 FOR T = 1 TO 1000: NEXT 
740 RETURN 



m 




5 CLS 

10 DIM X(50} ,YC50) .XTCIO) .YTtlO 

) .XG(20) ,YG{20) ,J(50) 

20 SCREEN 

30 GOSUB 140 

40 GOSUB 350 

50 SCREEN 0: INPUT "QUANTOS NtVE ■ 

IS DE RECUaSAO " ;NR:NH=rNT(NH) 

IF NH<1 THEN 50 

60 F=l :N=0:SCREEN 2 

70 LINE-C127+XCP) ,96-Y(P)) ,4: 

80 GOSUB 500: IF P>0 THEN 80 — -- , 

90 A$=INKEYS:IF AS^"" THEN 90 ^1 

100 SCREEN 0!PHINT''<S> PARA SAl" 

B E QUALQUER OUTRA PAHA CONTTNU 

AH" 

110 A$=INKEYS?IF A9="" THEN llf 

120 IF AS<>"S'' THEN 20 

130 CLS: END 

140 IF F^O THEN 170 

150 SCREEN :PRINT"MESMA FORMA 

IMICIAL? CS/N) " ; 

160 AS=INKEY$:IF AS<>"S" AND A3: 

O'N" THEN 160 ELSE PRINT AS 

170 IF F=0 OH AS="N" THEN GOSUB 

230 
180 FOR K=l TO CV 



a 




190 P=K-i 

200 X!P)=XT(K) :Y(P)=yT(K) 

210 NEXT 

22 RETURN 

230 INPUT "QTOS. UgRTH^ES NA FO 

RMA INICIAL" iVT;UT=INT(yT) iTF V 

T<1 THEN 230 

240 FOR L=l TO VT 

250 PDTNT "VERTTCE "iL;: INPUT" 

- '':x.y!iF ABS<x)>i OR Anscy]i>i 

THEN 250 ■ 
260 XT(L)=X*9S:YT(L)=Y*9*j 
265 NEXT 
270 PRINT"CURVA FECHADA (S/N) ? 

I 

280 AS=TNKEYS: IFAS-O"*!" AND AS< 
>"S" THEN 2«0 EL9E PHTNT AS : FOR 

t=] TO 300: NEXT 
290 SCREEN 2 : FOR L=l TO VT 
300 IF L-l THEN LINE -(127+XT(L 
) ,96-YTCL) J ,4 ELSE LINE -f127+X 
T{L) ,96"YT(L)) . 11 
305 NEXT 

310 IF A$="K" THEN CV-UT:GOSUB 
7 30: RETURN 

320 CU-yT+l:XT{cy)-X'r{l) tYTCCV) 

=YT(1) 

330 LINE - tl27+XT(CV] ,95-YT(CU) 

) .11 :GOSUB 7 30 

340 RETURN 

350 IF F=0 THEN 380 

360 SCREEN : PHTNT"MESMO <3ERAD0 

R7[3/n}": 

370 AS=INKEV3:IF A5<>"S"' AND A3 

O'N" THEN 370 ELSE PRINT A5 

380 IF F=0 OH AS^"N" THEN GOSUB 

400 
390 RETURN 

400 INPUT"QUANTOS VERTICES NO G 
EBADOR NAO INCLUINDO AS EKTREMI 
DADES CO.O) E (1,0) ";GN 



41Q GN=INT(GN) ■ IF GN<1 THEN 400 

430 FOR M=l TO GN 

440 PRTNT"UfiRTICE " ;M;" DO GEHA 

DOR" I : INPUT" - " ; XG (M) . YG CM) 

450 IF ABS(X)>1 OR ABS(Y)>1 THE 

N 440 

45 5 NEXT 

457 SCREEN 2 : PSET tSO , 96) , 11 

458 FOR M=l TO CM 

460 X=Xa(M) "95+80 ;y=96-YG CM) *95 

:i:,lNE-(X.Y) ,11 

4 70 NEXT 

480 LINE- tl 75,96) ,11 : GOSUB 730 

490 RETURM 

500 IF NR=N THEN GOSUB 520 ELSE 

GOSUB 5 70 
510 RETUHN 
520 FOR L=l TO CN+1 
530 P=P-1 

540 IF ABS(X{P) )>127 OR ABlS(Y(P 
) )>9S THEN 560 

550 LINE-(127 + X(P) ,96-Y(:P) ) . 11 
560 NEXT: RETURN 
570 N=N+1 

580 IF N-^l THEN JM^-CV-l ELSE JM 
''GN+l 

590 FOR J=l TO JM 
fiOO TX=X(P) :TY=YCP) 
610 BX=X(P-1) :BY=Y(P-13 
620 DX=TX-BX:DY=TY-BY 
630 FOR E=l TO GN 
640 XCP) =DX''XG IE) -DY*YG tE)+BX 
650 y CP) =DY*XGCE) +DX*YG(E)+BY 

660 P=P+1 

670 NEXT 

6B0 X(P)=TX:Y(P)=TY 

690 J(CL)=J:CL = C:.-H:GOSlIB 500 : C 

L=CL-lrJ=J(CL) 

700 NEXT J 

710 N=N-1 

720 RETURN 



^^ 



730 A5=TNKEY3:K=1000 

740 K = K-J:1F K>0 AND I.NK£ys="" 

THEN 74 

?.50 RETURN ^^^^ 

Quando voce executa o programa, a 
linha 230 pedc o numero de vertices do 
desenho inicial que ira gerar a figura 
1 racial. Coiivcju traijar essa figura prc- 
viamcnii; em uma fulha dc papcl. Mar- 
que doi-S ponlos represeniando o iniL-io 
e o fira da linha e una-os por meio de 
pequena.s retas, Conte o mimero de can- 
tos c roriietja esse dado ao computador. 
Nao exagere no numero de reias: 
leuibre-se que voce tera que especitV 
car as coordenadas de cada vertice (li- 
nha 250). Estas devem ter valores com- 
preendidos entrc -lei. 

O laco cntre as iinhas 240 e 280 {240 
e 305 nas versoes para o MSX e o Ap- 
ple) permite que voce introduza as 
coordenadas c dcsenhe a forma inicial, 
determiiiando inclusive se sua figura se- 
ra fechada ou aberta (linha 290). 

Em seguida (Iinhas 4(X) a 490), o com- 
putador solicita ao usuario a definifao 
da figura que substituira cada linha re- 
ta do desenho inicial — essa figura e ge- 
ralmente chamada de gerador. Como 
voce fez para a forma inicial, desenhe 
a figura e pa.ssc a informai;ao para o 
computador. 

Finalmente, voce devera especificar 
niimero de niveis de recuisao. Quan- 
do esse valor e digitado, a linha 80 cha- 
ma a iub-rotina que verifica hc o pro- 
granva estd rodando pela primeira vez. 
Em caso afirmaiivo, o programa e des- 
viado para a rolina principal (iinha 57U 
a 720), que desenha a figura fractal, Se 
o programa ja estava sendo rodado, o 
computador da ao usuario a chance de 
redefinir o gerador. 



Para experimenlar o programa, digtte 
valor 3 para o numero de v&iices da 
forma inicial. Em seguida, introduza as 
coordenadas 0.5 e 0,2 para o vertice I ; 
e 0.4 para o vertice 2; 0.5 e -0.2 para 
o vertice 3. Ao responder N a pergunta 
"CURVA FECHADA?", aparecera na 
tela um triangulo sem base. Como foi 
feito para a forma inicial, entre 3 para 
o numero de vertices do gerador e defi- 
na as coordenadas; 0.2 e para o verti- 
ce 1; 0.4 e 0.8 para o verdce 2; 0.6 e 
para o vertice 3. Esses dados definem a 
imagem de um triangulo sem base sobre 
uma linha. Por fim, introduza o valor 
5 para o nivel de recursao (3 para o Ap- 
ple) e observe a geracao da figura 
fractal. 





BASBC 



A manlpulapao dos bits individuals de urn 
bvte de memdria por meio de comandos 
do BASIC parece uma tarefa impossivel. 
Mas nao e: aprenda os truques de 
programacao necessarios para isso. 



O byte e a unidade basica de memoria 
usada em microcomputadores. Os diver- 
sos comandos da iinguagem BASIC tra- 
tam o byte como a unidade mmima de in- 
formacao: os caracteres individuais de 
uma cadeia alfanumerica, por exempio, 
podem ser isolados e processados indivi- 
duaimente com comandos do tipo MID$, 
LEI-TS. RIGHTS, LEFTSS, CHRS. ASC 
etc Cada caractere ocupa um byte. Os va- 
lores numericos, por sua vez, em geral 
ocupam dois on mais bytes, dependen- 
do de sua precisao (sobre a armazenagem 
de numeros, veja o artjgo da pagina 894). 
Usando os comandos VARPTR, PEEK 
e POKE, temos acesso individual aos 
bytes onde variaveis, video, teclado etc. 
estao armazenados. 



Existe, porem, uma unidade de infor- 
ma?ao menor que o byte. Essa unidade 
i o bit {binary digit, ou digito binario, 
em ingles), que corre.^ponde aos digitos 
e 1 que todo computador digital usa 
como base de representa«;ao numerica. 
Cada byte tern oito bits, numerados de 
(o bit menos significative) a 7 (o bit 
mais significativo), 

Muitas vezes, surge a necessidade de 
manipular diretamente os bits da memo- 
ria. Para isso, convem utilizar uma ro- 
tina em Iinguagem de miquina, que tern 
comandos espccificos para o acesso e a 
manipulai^ao de bits individuais e e mais . 
rapida que qualquer rottna em iingua- 
gem de alto nivel. 

Entretanto, poucos sabem que e per- 
feitamenie possivel realizar manipula- 
foes diretas de bits com os comandos ja 
existentes no BASIC. Nao e tao ripido 
nem tao direto quanto em Iinguagem de 
maquina, mas funciona bem. 

Neste artigo, voce aprendera virios 
truques que permitem a manipulat^ao de 
bits em quase todos os microcomputa- 
dores. Os comandos do BASIC mais re- 
levances para esse fim sao o CHR$, o 
ASC (ou CODE, no ZX-81) e os opera- 
dores l6gicos AND, NOT e OR. 

Com as fun^oes CHR$ e POKE, po- 
demos criar bytes com uma determina- 
da configurag:ao de bits, CHRS e 
utilizada no trabalho com varidveis sim- 



b<ilicas dentro de um programa em BA- 
SIC; POKE nos da acesso direto as 
locapoes absolutas da membria RAM. 

CHR$(1), por exempio, define um 
byte com o bit menos significativo igua- 
lado a I, e todos os outros igualados a 
0: OOOOOOI em binirio. CHR$(2) gera 
um byte com os dois bits menos signifi- 
cativos igualados a 1: OOOOOOI 1. 
CHR$(3) define o byte 00000010 e as- 
sim por diante. Com o auxOio de uma 
tabela de correspondencia entre nume- 
ros decimals de a 255 e os binaries 
equivalentes, pode-se produzir qualquer 
padrao de bits ligados e desJigados. 

Para converter o padrao de bits era 
um niimero decimal, devemos conside- 
rar cada bit como o indice de uma po- 
tencia de 2 e somar o resultado. Supo- 
nhamos um byte com os bits 0, 3 e 4 
ligados: 

00001101 

O niimero decimal correspondente e: 

2^ + 2^ + 2" = 16 + 8 + 1 = 25 

Eis algumas expressdes uteis para li- 
gar ou desligar s6 o bit B de um byte ar- 
mazenado em um caractere B$; 



Para ligar: 

BS»CHHSCCODE{BS) OR 2**B) 

Para desligar: 

BS=CHR3{C0DE(BS) AND NOT 2**B) 



Para ligar: 

B$-Cait3(ASC(B3) OR 2«*B} 

Para desligar: 

BS-CHR$CASC{B$) AND ffOT 2**B) 






Para desligar: 

BS=CHR$CASC(B$) AND NOT 2TBI) 



^i^HiB] 



Para ligar: 

BS=CHRS(ASC(BS) OR 2*Bi) 

Para desligar: 
B$=CHR5{ASC(BS) AND NOT 2"Bl) 

Observe que, com excegao dos mi- 
cros da linha Sinclair, que nao tern va- 
riaveis inteiras, usamos a notacao B% 
para indicar que esse valor deve ser in- 
teiro. Isso ajuda a evitar erros de cal- 
culo, caso B seja um bit real de preci- 
sao simples. 

Para lornar o bit B de um byte igual 
a 1 , usamos o operador logico OR. Su- 
ponhamos que voce queira igualar a 1 
bit numero 7 (o mais significativo) de 
um byte igual a 0000101 1 . Teremos, en- 
tao, a operapao, em decimal: 

25 OR 2' = 25 OR 128 

o que, em binario, da; 

00001011 OR 
10000000 



10001011 



Note que OR tern o efeito de operar 
individualmente sobre cada par de bits 
na mesma posigao, nos operandos. de 
acordo com o seguinte esquema: 



OR 

1 OR 

OR 1 

1 OR 1 



Para colocar em um bit qualquer 
do byte B$, usamos a opera^ao AND 
NOT. De fato: 



AND NOT 

1 AND NOT 

AND NOT 1 

1 AND NOT 1 



AND 1=0 

1 AND 1-1 

AND 0-0 

1 AND 0-0 



Para ligar: 

BS-CKRS(ASC(BS) OR 2 IBS) 



pois a operagao NOT transforma um bit 
em 1 e vice-versa, equivalendo, por- 
tanto, a uma inversao do bit. 

Se voce quisesse transformar o bina- 



BITS E BYTES 



MUDANDO UM BIT 



BITS EM STRINGS 



E EM NUMEROS 



COMBINACAO DE BITS 



LEtlURA DE UM BIT 



OPERADORES AND, OR e NOT 



BITS INDCADORES 



PROGRAMA DE DEMONSTRA CAO 
APLICAcbES 



rio lOOOIOll em 0000101 1, igualandoo 
bit 7 a 0, teria: 



NOT 



lOOOlOll AND 
lOOOOOOO 



que e a mesma coisa que: 

10001011 AND 
01111111 



00001011 



Pode ser que, em vez dc trabalhar 
com bytes armazenados em caracteres fi- 
terais, voce queira manipular os bits in- 
dividuals de um niimero inteiro — que, 
na maioria dos micros, e arma^cnado 
em dois bytes conti'guos, em um total de 
dezesseis bits. Nesse caso, use as expres- 
soes apresentadas a seguir. Mas lembre- 
se de que alguns computadores. como 
Zx4l, podem armaaienar dc forma 
diferente um numcro inteiro. 



QD 



Para ligar: 
It - It OR 2tBt 

Para desligar: 



It 



It AND NOT 2tBt 



Pi^^aiE] 



Para ligar: 

It - It OR 2~&t 

Para desligar: 

It - It AHD NOT 2-Bt 

Essas expressoes funcionam com um 
conjunto de dezesseis bits — ou seja, se 
quisermos ligar o bit 13 do byte 1%, fa- 
remos a opera^ao: 

It - It OR 2 - 12 

OU 

It - It OR 8192t 

A expressao AND NOT desliga o 
B-esimo bit de 1%, 

Os micros ZX-81 e Spectrum nao po- 
dem utilizar essas expressoes, ja que nao 
lem vari^veis inteiras. Todos os outros. 



micros podem, pois traballiam com a 
versao microsoft do BASIC. 



C0M6INACA0 DE BITS 



E possivel ligar uma combinagao de 
bits em uma variavet literal ou inteira. 
Para isso, usa-se uma expressao de so- 
ma dos cxpoentes de 2 correspondentes 
a cada bit a ser ligado, combinados por 
operacoes OR. Para ligar os bits 3 e 5 
do byte cm TS, fapa: 



T3 - CHRSt(2**3) OR (2**5)) 

QD 

T3 - CHR$(fZT3) OB {2t5)) 

[BE] 

T$ • CHfiS{C2-3) OB (2-5)) 



TESTANDO OS BITS 



Da mesma forma que podemos ligar 
ou desligar bits individuai.s em lingua- 
gem BASIC, e bastante facil examinar 
o valor desses bits, atraves de uma ex- 
pressao simples: 



R - CODE (BS) AND 2**B 



R - ASC (BS) AND 2**B 



aa 



Rt - ASCtB$) AND 2 TBI 

OU 

Rt = It AND 2tBt 



Rl - ASCCB5) AND 2-Bt 

OU 

Rl ' It AND I~Bt 

A operagao AND isola apenas o va- 
lor do bit mascarado pelo byte igual a 
2^. Por cxemplo: qual e o valor do bit 
niimero 6 do byte OlOOlOll? 

01001011 AND 
01000000 



oioooooo 



que equivale a 89 AND 64, cujo resul- 
tado e 64 em decimal. 

Como o nijmero resuttante dessa ope- 
ra(;ao e maior do que 0, o resultado e 
verdadeiro. Se fosse igual a 0, teriamos 
entao um resultado falso. 

Para transformar o resultado R em 
valor 1 , fazemos: 

Bt = ABS(R»>(2 I Bt - 1)) 

Em nosso exemplo. isso daria: 

ABS t64>63) = 1 

Se R% fosse 0, teriamos: 
ABS (0>63) - 

Eis aqui um programa para testar to- 
dos OS bits de um byte de entrada: 



110 PRINT "ENTRE UM NUMERO EN- 

TRE E 255) 

120 INPUT N 

130 LET NS-CHRSCN) 

140 FOR I-O TO 7 

150 PRINT "BIT ■;!;" - "; 

160 LET C-ASC(NS) AND 2**1 

170 IF C THEN PRINT "SIM" 

180 IF NOT C THEN PRINT "NAO" 

190 NEXT I 



O programa para o ZX-8] e o mes- 
mo do Spectrum, com esta alterai^ao: 

160 LET C=C0DE(NS) AND 2**1 



loeuAiiiiAaioaASK liT 



DD 



110 PRINT -ENTHE UM NUMERO EN- 

TRE E 255] 

120 INPUT Nt 

130 N$=CHBS[Nt) 

140 FOR 11=0 TO 7 

150 PRINT "BIT ";It!" =■ "; 

160 C*=ASCCN$) AND 2TIt 

170 IP C* THEN PRINT "SIM" 

160 IF NOT CI THEN PRINT "NAO" 

190 NEXT I* 



^QE 



O programa para o MSX e o Apple 
e igua! ao anterior, com a itiodificacao: 

160 Ct=ASCCN5) AND 2"I* 



MAPAS DE BITS 



Ate agora, vimos como manipuiar os 
bits de uni unieo byte ou conjunto de 
dois bytes. Como uma cadeia alfanume- 
rica contem ate 255 caracteres, podemos 
manipuiar um conjunto muito maior de 
bits (um maximo de 8 X 255, ou 2040 
bits). Esse conjunto e chamado de ca- 
deia de mapeamenfo de hils fb'tt- 
mapsrring), e tern muitas aplicai^oes em 
jogos, bancos de dados e outros progra- 
mas de cardter profissionai. 

Por exemplo, e possivel armazenar 
em uma cadeia desse tipo condi(;oes 
sim/nao ou verdadeiro/falso. Se um bit 
em determinada postijao dessa cadeia es- 
liver ligado, temos uma eondi(;ao sim, 
ou verdadeira; se estiver desllgado, uma 
condigao nao, ou Falsa. 

O comprimento da cadeia depende- 
ra do niimero de condi(;6es {/lag bits ou 
bits indicadores) que queremos incluir. 
Se o niimero de condi(;'oes for N, o nii- 
mero de bytes da cadeia sera: 

L = INTtN/B)+l 

Para inicializar um raapa MS, zera- 
mos todos OS bits: 



45 CLS 

50 INPUT "NUMERO DE BITS NA CAD 

EIA ";n 

60 IF n>255 THEN GOTO 50 

70 FOR 1-1 TO INT(n/8J+l 

80 LET mS-mS^-CHHSCO) 

90 NEXT i 



QD^"^ 



50 INPUT "NUMERO DE BITS NA CAD 

EIA ";N 

60 IF N>Z55 THEN 50 

70 MS*3THING3tINT(N/8)-H,0) 

Para ligar, dcsligar e testar um bit 
qualquer do conjunto total de N, preci- 
saremos de algumas run(;6es poderosas: 
FNLS, FNDS e FNTS. 

Essas fungoes sao bastante comple- 
xas, mas muito rapidas. Procure anali- 
sa-las passo a passo para entender o que 
elas executam: 



20 DEF FNLS(B)-BiS(TO INT{b/8)) 
+CHB$<ASCtni$(lNTtb/8)+l) ) OR 2 
** tb-INT Cb/8) *8J ) +!bS (INT (b/8) +2 

TO) 
30 DEF FNDS(b)-iiiS<TO INT<b/eH 
+CHR$CASC(ni$CINT[B/8)+l) ) AND 
NOT 2** Cb-INT{b/8}*8) J+mS (INT 
b/8)+2 TO) 

40 DEF FNT(b) -ABS( (ASC(mS(INT 
(b/83+1)) AND 2**{b-INT(b/8J* 
8))<>0) 



DEI 



20 DEF FNL3(8)=LEFT3{MS,INT(B/e 

) ) +CHfi5 (ASC (MID5 (MS . INT (B/8) -t-l . 

1)} OH 2T (B-INT{B/8)*a) J+MID3 (M 

S,INTCB/8}+2) 

30 DEF FNDStBJ -LEFTS {MS, INT (B/e 

3 ) +CHRS (ASC (MIDS (MS , INT (B/8) +1 , 

1)3 AND NOT 2T{B-INT(B/8)*83)+M 

IDS{M$.IMT(B/8)+2) 

40 DEF FNT(B)-ABS{ (ASC(MIDS(MS, 

IHT{B/8)+l)) AND 2T (B-INT (B/B) * 

B)}<>0) 

Por rim, acrescentamos o restante do 
programa de demonstraijao das fungoes 
dc manipulagao e consulta de bits: 



DDP^^ 



45 CIS 



20 PRINT "PROGRAMA DE DEMONSTH 

ACAO DE MAPAS DE BITS" 

210 INPUT "(DIGA (DJESLIGA (T) 

ESTA (F)IM "-.QFS 

230 IF OPS-'F" THEN STOP 

240 INPUT "NUMERO DO BIT {0 A " 

: N ; " ) - ; B 

260 IF B>N THEN GOTO 240 

270 IF OPS-'L" THEN MS-FNLStB) 

280 IF OPS-"D- THEN M3-FNDS(B) 

290 IF OPS-"T- THEN PRINT "BIT 

"iB," - "iFNTtB) 

310 GOTO 210 



APLICACOES 



Voce nao tera dificuldade em encon- 
trar aplicagoes para os iruques explica- 
dos neste artigo. 




Qual 6 a vantagem de empregar ca- 
deias alfanumericas, enn vez de conjun- 
Tos num^ricos, para armazenar grupos 
de bits? 

Como vimos no artigo Armazena- 
gem de Programas (p^gina 1 001 ), a ca- 
deia alfgnum^rica 6 armazenada na me- 
moria do microcomputador na forma de 
uma sequencia contigus de bytes, ca- 
da qual ocupado por um caraclere. 
primeiro byte da sequencia sempre in- 
dica numero de caracteres da varia- 
vel literal \strfng\. Esse numero 6 "lido" 
por intermedio da fun<pao LEN, nao ha- 
vendo, no BASIC (como ocorre em ou- 
tras liguagensl, um byte encarregado 
de indicar ao interpretador onde termi- 
ng o string. 

A vantagem de empregar cadeias al- 
fanumericas decorre jusramente desse 
sistema de armazenagem usado pelo 
interpretador BASIC. 

A disposicao sequencial dos bytes 
na mem<jria iacilita enormemente a 
programa^ao de rotinas de acesso aos 
bits individuals de uma longa cadeia. 
Um string de trinta bytes, por exemplo, 
equivale a uma cadeia ininterrupta de 
240 bits, que podem ser lidos ou mo 
diffcados um a um, ou em grupos que 
se sobreponham aos limites entre 
bytes. Isso e muito mais dificil de ser 
feito quando a vari^vel contem elemen- 
tos separados, como e o caso dos con- 
juntos num^ricos. 



No desenvolvimento de jogos, por 
exemplo, a possibilidade de manipuiar 
bits amplia bastanie as alternativas do 
programador. Entre outras coisas. vo- 
ce podera modificar os gr^ficos impres- 
ses no video alterando diretamente as 
locagoes de memoria. 

Os recursos de programacao aqui 
examinados tambcm serao liieis quan- 
do for nccessario comprimir texto, em 
fiingao de limitac^oes da memoria. Na se- 
rie de artigos sobre o assunto, que ini- 
ciamos na pagina 1332, apre.sentamos 
diversos algoritmo.s inicressances para a 
redu(;ao do cspago ocupado por um tex- 
to em ate 50%. A maioria desses algo- 
ritmos procura colocar doi.s ou mais cd- 
digos de caracteres cm um linico byte. 
Como exercicio, tente impiementar o su- 
percompressor ba.seado na estatistica dc 
pares dc letras em um texto (veja os ar- 
tigos mencionados). 
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Apple 11 + 


Appletronica 
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Apple 11 + 


Apple II + 
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Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 
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Apple Master 
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USA 


Apple 11 + 
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MSX 


Apple 11 + 


Omega 


MC-400 


Houston 
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Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 
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APII 
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MX-64 
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Apple 11 + 


Apple 11 + 


Victor do Brasil 
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Maxitronic 1 
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Apple 11 + 


Apple 11 + 
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Apple 11 + 
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Spectrum 
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Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 
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TRS-Color 
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Apple II Plus 
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Apple n + 


Sinclair ZX-81 


Engebras 
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MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 
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TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 
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Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 
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Prologica 
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CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 
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^ 1 TK 2000 
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linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 
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.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 
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sesuem passim a ser 
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MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



APLICACOES 

que e um editor musical. Como digitar as notas. 
Execucao de melodias no teclado. Composicao de pecas. 

SOFTWARE 
Processadores de texto. Hardware necessario. Impressao. 

APLICACOES 

Projeto arquitetonico computadorizado: complemento das 

listagens para os diferentes micros, instrugoes. 

PROGRAMACAO BASIC 

Formatacao de telas. Retina jjara entrada de dados. 

PROGRAMACAO BASIC 

Desenho em perspectiva. Ponto de fuga e ponto 

de vista. Reducao. Sombreamento. 
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